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PREFAZIONE 


Nel realizzare i programmi di questo libro si è cercato di sfruttare al massimo le 
nuove interessanti prestazioni dello Spectrum ed in particolare le nuove istruzioni 
BASIC, il Suono, il Colore e soprattutto la Grafica ad alta risoluzione. 

Anche la scelta dei programmi è molto varia, essendoci infatti programmi di Gra¬ 
fica (30), Utility (8), Musica (5), Animazione (6), Giochi (7), Effetti Sonori (12), E- 
lettronica e Circuiti Logici (4) ed altro (5). 

Fiore all’occhiello di questo libro è senz’altro la 'BUSINESS GRAFICA’ (9 pro¬ 
grammi) realizzata, con una certa efficacia visiva e pratica superando alcune limita¬ 
zioni di colore e di risoluzione che relegavano tali programmi solo a computer molto 
più costosi. 

In tutti i programmi si è sfruttata anche la maggiore velocità dello Spectrum ri¬ 
spetto ai precedenti computer Sinclair ed in particolare nelle Animazioni che sono 
ora molto più veloci e realistiche. Altra caratteristica molto utilizzata è la possibilità 
sullo Spectrum di definire dei Caratteri Speciali, inseriti ovunque possibile per ren¬ 
dere i programmi molto curati anche esteticamente o per rendere pù realistiche al¬ 
cune situazioni di programma, come nei giochi dove si creano, per esempio, un 
sommergibile (nella Caccia al sommergibile), o degli omini (nel Tiro alla Fune o nel 
Campo Minato), ecc... Spero quindi che troverete molte cose utili da utilizzare sul 
vostro meraviglioso Spectrum. 

Prima di terminare permettetemi di ringraziare, per l'apporto di collaborazione da 
loro ricevuto, i Sigg.ri Arenai e Harms della Easy Byte di Roma e la Sinclair Re¬ 
search (per il tramite dell’importatore, la GBC Italiana) per i due Spectrum utilizzati 
nello scrivere il libro, ed i Sigg.ri Dentale e Ferrari della TELAV di Roma per il Moni¬ 
tor a Colori (un Barco CM33) utilizzato per ottenere delle immagini ad alta qualità di 
cui le foto che ho realizzato spero diano buona testimonianza. 

Gaetano Marano 
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NOTE IMPORTANTI SUI PROGRAMMI 


Dopo aver inserito i programmi, e PRIMA di premere RUN, è sempre bene regi¬ 
strare su cassetta il programma e controllare la avvenuta registrazione con ‘VERI- 
FY', ma ciò e particolarmente IMPORTANTE in tutti i programmi che contengono 
delle routines in linguaggio macchina ed in genere delle POKE. Queste perché se si 
aggiunge o si toglie per errore una istruzione della routine o se si sbaglia l’indirizzo 
della POKE, può capitare che il computer si blocchi o addirittura che il programma si 
cancelli. 

Registrando il programma si può evitare quindi di doverlo riscrivere e sarà più fa¬ 
cile trovare l’istruzione che si è inserita in modo errato. 

Tutti i programmi sono perfettamente funzionanti in quanto sono stati stampati di¬ 
rettamente dal computer, dopo aver girato con successo, e riprodotti esattamente in 
questo libro per cui occorre soltanto inserirli con esattezza per vederli funzionare. A 
tale proposito è bene tenere presente di inserire con particolare cura gli spazi sia 
come numero che come posizione esattamente come nei programmi, poiché in mol¬ 
ti casi sono determinanti per un funzionamento corretto. Per contare gli spazi brevi 
basta riferirsi alle linee superiori o inferiori, mentre per gii spazi più lunghi, questi so¬ 
no stati indicati in alcuni programmi, con dei REM subito dopo la fine. 

In alcuni programmi, che usano routines in linguaggio macchina per leggere la ta¬ 
stiera, è indicato di non inserire nel programma l'istruzione BORDER altrimenti il 
programma si blocca. Se comunque si desidera un dato colore per il bordo lo si può 
inserire con un comando diretto prima di scrivere il programma. 

Infine i programmi sono stati scritti in modo da funzionare senza modifiche sia su 
Spectrum da 16K che da 48K. 


Vili 



GRAFICA 


DISEGNATORE CARATTERI SPECIALI 

Lo Spectrum ha la possibilità di definire 21 caratteri speciali memorizzabili trami¬ 
te la funzione USR o tramite il comando POKE, e utilizzabili in un programma tramite 
l’istruzione CHR$ o inseribili direttamente da tastiera premendo i tasti da A a U con il 
Computer in modo grafico. 

Il programma di figura 1 è molto utile perchè permette di disegnare e modificare 
tali caratteri speciali in grandi dimensioni e quindi di memorizzarli sotto il carattere 
alfabetico prescelto. 

Il programma permette inoltre (premendo il tasto ‘V alla fine o anche durante il 
disegno) di visualizzare i codici delle POKE da effettuare nel caso si vogliano cari¬ 
care molti caratteri speciali nel modo utilizzato in molti programmi di questo libro; 
vale a dire inserendo tutti i codici in istruzioni DATA e caricandoli con delle POKE di¬ 
rettamente nella RAM a partire dall’indirizzo 32600 (nello Spectrum 16K) o dall’indi¬ 
rizzo 65367 (nel 48K). 

Le funzioni degli otto tasti utilizzati dal programma sono le seguenti; 


tasto 

Funzione 

1 

visualizza i codici POKEs 

2 

carica il carattere speciale in memoria 

3 

modo ‘disegno’ 


modo ‘modifiche e spostamenti’ 


a sinistra 


in basso 


in alto 

8 

a destra 


La figura 2 mostra alcuni dei caratteri speciali realizzabili con il programma appe¬ 
na descritto, assieme ai relativi codici delle POKE. In particolare vi è un piccolo E.T. 
(2a), un PAC-MAN (2b), un’auto da corsa (2c), un omino (2d) ed il simbolo di mi- 
croFarad (2e). 

NOTA: Premendo il tasto ‘1’ o il tasto ‘2’ il cursore quadrato lampeggiante viene in¬ 
cluso nel disegno o nel calcolo dei codici POKE solo se si è in modo 'dise¬ 
gno’. 
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10 REM 
20 REM 
30 REM 
4-0 REM 

100 BGRDER 0: PAPER 0: IN K 6: C 

L5 

110 LET U=PEEK 2367S+2S.6*PEEK 2 

•“j -7 p 

1 ì 1 P R I NT RT 16,20.; IN K 7 "ta s t 
O S=COP4" 

120 POR a =4. TO 11 

130 PRINT RT a,11, PRPER 1, INK 
0; '• 

14-0 MEXT a 

14-4- PLOT 37.79 DRAU 0.65' DRAU 
65.0: DRRU O , -65 : DRRU -65.0 
ISO LET 1=11: LET C=ll: LET i=© 
16© LET V, = C O D E IN K E".' $-48 
17 0 IF K >0 fi N D K <9 THE M GO SUE 

K. *100 + 1000 

177 PRINT RT l.Ci INK 0; PAPER 
Sì"+"■ PAUSE 3 

130 IF i =1 THE M PRINT RT !. , c ; I 

N K 6 PRPER 1C H R $ 14- 3 

1SS IF i = TMEN PRINT RT L , C J I 

NK 0; PARER 1 ; CHR$ 123 
190' IF INKEY $ = ”«:" THEN COPY 

2 0 0 A fi ’ T n 16 0 
UGO FOR h =4- TO 11 
1110 L ET p = 0 

1120 FOR w=ll TO 16 

1130 IF ATT R ih .IN =14 TMEN LET P 


-P +2t 
1 14.0 

1150 

( 13- W 'J 
MEXT mi 
PRINT RT 

h , 2 0 IM K 4- 

p ; ‘ ■■ 

1160 
1170 
1200 

MEXT h 
RETURN 
PRINT RT 

0 s ink 7 *• 

p r e m e r 

E il 

c 3 r -3 t ti «3 r 

£ i Cfi l t O 


1. lr!0 5 

L. ET t = 0 O D E IN K EY $ - 6 5 


1210 

IF t >31 

THEN LET t=t - 

•3 i=I 

12 2 0 

IF t. > : - 0 

AND f. <21 THEN 

G O T O 

124-0 

1230 

GO TO 12 

05 


124-0 

PRINT RT 

0.5,; 


124-4- 

FOR h =4. 

• ‘ • r;..i c- +.4 ; 

TO il‘"-“ 

s p a z i 

1250 

126G 

LET P=0 
j- fip ni =11 

TO 16 


1270 

IF ATTA 

£ h . W 3 = 14- TMEN 

LET p 

= P +2 + 

1260 

1290 

( 13 - i .i.i 1 
NEXT M.i 
POKE iJ+T. 

* s + i; h - 4 ;i , p 


1299 

NEXT h 
RETURN 
LET i=l: 

RET URN 


14-4-4- 

LET i =0 : 

RETURN 




2 




Pj 

0 co • j j iji iji cn ci 


00 


00 

66 

00 


00 


00 


IF C - 11 THEN RETÌJRN 

L.ET C - C — 1 : RETURN 
IP' t. =11 IME N R E T U R N 

E ET L - +1 - RETURN 

IF l. =4- THEN RETURN 
LET I. = i. - I • RETURN 
IF c = 1S T ti E N R E T U R N 

LET C — C +1 : RETURN 



Figura 2 
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DISEGNATORE A COLORI 

Con il programma di figura 3 si possono realizzare sullo schermo tramite i tasti 

5.6.7.8 dei disegni ad otto colori formati con sedici caratteri grafici dello Spectrum 
(vedere a pag. 186 del manuale). 

All’inizio occorre inserire il colore scelto per il bordo ed il colore del fondo. 

Il simbolo (che all’inizio è lo spazio inverso) ed il colore (che all’inizio è bianco o 
nero) possono essere continuamente scelti e modificati durante il disegno premen¬ 
do (senza SHIFT) i tasti indicati nella Tabella 1. 

Come già detto per disegnare con il carattere prescelto occorre premere i tasti 

5.6.7.8 INSIEME al tasto CAPS SHIFT. 

Infine per spostarsi o per modificare il disegno basta premere il tasto ‘A’ che sele¬ 
ziona lo spazio vuoto per poi cambiarlo di nuovo quando si vuol ritornare a disegna¬ 
re. 

La figura 4 mostra un esempio di disegno realizzato con il Disegnatore a colori, 
tale disegno (come qualsiasi altro) può essre registrato su cassetta premendo 
BREAK e quindi eseguendo in modo diretto il comando 'SAVE “nome” SCREEN$’ 
per continuare si può premere subito dopo CONTINUE ed ENTER. 

NOTA: Se si vuole disegnare meno velocemente si può aggiungere la linea 
233 PAUSE n 

dove n può essere compreso tra 1 e 50. 


10 REM ■ 

20 REM - 

100 INPUT 
O (0--71 
.: b 

110 IF b> 
O 


■taaagBuaa 


“Inserire c o [o r e 
e p r e ni ere [MEI 


TER 


b o r d 


OR b < 0 TMEN GO TO 10 


120 INPUT "Inserire co L o r e fo n d 


(0 

-7 ) 


e premere 


t t 

P 

130 

IF 

P 

>7 OR p<0 THEN GO TO 

10 

14.0 

IF 

P 

>3 THEN LET 

1 =0 


ISO 

IF 

P 

<4. THEN LET 

i =7 


160 

LET 


ni = i : BQRDER 

b: PAPER 

P : 

INK 

i : 

c 

LS 



170 

LET 


1=0: LET c=0 

LET X = 

14-3 

ISO 

LET 


K=CODE INKEY 

$-7 


190 

IF 

k 

>4- THEN LET 

k=k-36 


200 

IF 

k 

>12 THEN LET 

k = k - 9 


210 

IF 

k 

>28 THEN LET 

K. = k - 3 2 


220 

IF 

k 

>0 AND k <29 

THEN GO 

■SUE 

K*100+1000 




Figura 3 
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230 PRINT RT L,c; INK 
L .. C XNK i;CHR$ X 
£40 GO TO 130 
1100 IF C=0 THEN RETURN 
1111 LET C = C —1 : RETURN 
12©0 IF C =31 THEN RETURN 
1222 LET C=C+1: RETURN 
13©0 IF L = 21 THEN RETURN 
1333 LET l=i+l: RETURN 
140© IF L=0 THEN RETURN 
1444 LET 1=1-1: RETURN 
2222 LET i = K-5 : RETURN 
4444 LET X = K +115 : RETURN 


Figura 3 (continua) 



Figura 4 
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BLOCK 

BLUE 

RED 

MAGENTA 
GREEN 
C Y O N 
YELLOU 
LÌH ITE 


Tabella 1 
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PLOTTER 

L’alta risoluzione grafica disponibile sullo Spectrum (256 x 176 pixels) permette 
di realizzare tramite il programma ‘Plotter’ (Figura 5) dei disegni molto definiti, tali 
da essere utilizzati in applicazioni di tipo scientifico e tecnico. 

La Figura 6 mostra appunto un disegno tecnico realizzato con ‘Plotter’. 

Plotter chiede all'inizio di inserire i colori prescelti per il bordo, il fondo e la penna 
scrivente; dopodiché appare nell’angolo in basso a sinistra un puntino che può esse¬ 
re spostato nelle otto direzioni tramite i tasti 3,4,5,6,7,8,9,0. 

I tasti 1 e 2 servono invece per selezionare i modi ‘disegno’ e ‘modifiche e sposta¬ 
menti’. 

II tasto ‘C’ permette infine di stampare con la ZX Printer il disegno fatto fino a quel 
momento. 

Fare attenzione che il punto, all’inizio, si vede appena, specialmente se si è sele¬ 
zionato un colore ‘penna’ molto vicino al colore ‘fondo’ o al colore ‘bordo’. 

La funzione dei tasti usati da ‘Plotter’ è la seguente: 


Tasto 

Funzione 

1 

modo ‘disegno’ 

2 

modo 'modifiche e spostamenti’ 

3 

in alto a sinistra 

4 

in basso a sinistra 

5 

a sinistra 

6 

in basso 

7 

in alto 

8 

a destra 

9 

in basso a destra 

0 

in alto a destra 

C 

‘COPY’ 



IO 

REM 


20 

REM - 


100 

INPUT 

O 

(0 

-7 :i 

j 

b 



1 IO 

IF b > 

0 




120 

INPUT 

o 

(0 

-7 ) 

,» 

P 



130 

IF p > 

0 




140 

INPUT 

3 

(0 

- 7 ) 


i 



"Inserire c o (ore bord 
e p r e rr. ere iflUMd 

OR b<0 THEN GO TO IO 

"Inseri re c o i. o r e f o n d 


[ENTE RI 


OR p<0 THEN GO TO 12 

"Inserire co lo r e p en n 
e p r e n-, e r e l=fggW^fa 


Figura 5 
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ISO 

IF 

i= p OR i 

>7 OR ì<O THEN G 

O T 0 

140 


160 

LET 

X =0 : LE 

T u=0 : LET d-1 

170 

LET 

K = C O D E 

INKEY$-47 

^ 

IF 

INKEY$ = “ 

C" THEN COPY 

18© 

IF 

K >=© AND 

K <11 THEN GO SU 


B t; *100 + 1000 
190 PLOT x , y 

200 IF d =0 AND POINT •! X , y ) = 1 TH 

EN PLOT OUER 1 ; x , y 
222 GO TO ITO 

1100 IF x =255 OR M =17 B THEM PETO 
RN 

1111 LET x=x + 1 : LEI y=y+1 ; RETUR 

N 

1222 LET d =1 : RETURN 

1333 LET d =0 : RETURN 

1400 IF X =C OR y=175 THEN RETURN 

1444 LET x-x-1: LET y=y+l: RETUR 

N 

150© IF X = O OR y =0 THEN RETURN 

1555 LET X •= X - 1 : LET y ■= y - 1 : RETUR 

N 

1600 IF X=© THEN RETURN 

16 6 6 L. E T X = x - 1 : R E T U R N 

1700 IF y=© THEN RETURN 

17 7 7 LET y = y-1 : RET URN 

1S0O IF y =175 THEN RETURN 

1088 LET y = y +1 : RETURN 

1900 IF X = 25 5 THEN RETURN 

1999 LET v =X +1 : RETURN 

2000 IF x =2 55 OR y=0 THEN RETURN 

2222 LET x=X +1 : LET y=y - 1 : RETUR 

N 

Figura 5 (continua) 



Figura 6 












CURVE MATEMATICHE 

Sempre sfruttando l’alta risoluzione grafica, ‘Curve Matematiche’ (Figura 7) dise¬ 
gna sullo schermo le curve di alcune funzioni matematiche. La Figura 8 mostra una 
delle quattro curve create dal programma; oltre a queste se ne possono comunque 
aggiungere molte altre. 


10 

■ IIM l II i il 

HhTEHhTTùhe^B 

20 

REM-• 


100 

BORDER 0: PAPER 0: CLS 

110 

INK 6 


120 

FOR X =0 TO 

255 

130 

PLOT X,X #X / 

3 3 0 

14.0 

NE XT X 


150 

FOR x=0 TO 

2 5 5 

160 

PLOT X ,X #xX 

3 3 0 

170 

D R fi Li 0 - ( x: * 

X / 3 3 © ) 

1S0 

NEXT x 


190 

PAUSE 200: 

INK 5: OLS 

200 

F OR X =0 TO 

£=i5 

210 

LET y=RND*X 

/ 1.5 

220 

PLOT x y 


230 

DRfiU 0,-y 


240 

NEXT X 


250 

PAUSE 200: 

INK 3 : CLS 

260 

FOR X=0 TO 

255 

270 

PLOT X ,LN ( 

X / 5 + 1.1 * 4 0 

i=! *Z* 0 

NEXT X 


290 

FOR X =0 TO 

2 5 5 

3 0 0 

LET y =LN (X 

/ 6 + 1 .• + 40 

310 

PLOT x ,y 


320 

DRAU 0 .-y 


33 0 

NEXT X 


34 0 

PAUSE 200 : 

INK 4 : CLS 

350 

FOR X =0 TO 

255 

3 6 O 

PLOT x , 80+COS (PI xISO*( 130 + 

* 1 . 

41) ) +80 


370 

NEXT X 


330 

FOR X=0 TO 

255 

390 

LÉT y=30+00 

iS (PI/130* ( 130 +X 

1.41) ) * 3 0 


400 

P L OT X , y 


410 

DRAU 0 ,-y 


4 20 

NEXT X 



Figura 7 
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Figura 8 
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DISEGNO POLIGONI 


Il disegnatore di poligoni (Figura 9) è una routine grafica che può essere utilizzata 
appunto per creare uno o più poligoni a partire da quattro valori numerici, vale a di¬ 
re, le coordinate X e Y del centro, il raggio R e il numero dei lati NL di ciascun poli¬ 
gono (Figura 10). 

Un esempio di poligono a nove lati è in Figura 11. 

Sostituendo al programma di Figura 9 le linee da 99 a 999 con le nuove linee di Fi¬ 
gura 12 si può creare sul video un’immagine dimostrativa di sei poligoni concentrici 
di vari colori e con un numero di lati da tre a otto (Figura 13). 


99 

BORDER 

1 : PAPER 

0■ INK 7 : 

c 

L S 



10© 

REM X 

,Y =coordi 

ri a t e ■; «■ r: t. 

r o 

110 

INPUT 

"Inse ri re 

X " ; X 

12© 

INPUT 

"Inserì re 

V " y 


13 0 

REM R 

= r a g g i o 



14.0 

INPUT 

"Inserì re 

R " ; r 


150 

REM NL = norrie ro 

i.at,ì 


160 

INPUT 

"Inserì re 

NL " ri 

i. 

170 

G O S U B 

4000 



ISO 

STOP 




9 9 9 

REM -- 



— 

4-000 

REM ■ 

D ì s e g n o P O 

L. IG O N I » 


4.0 10 

LET CX 

= X : LET ey 

= y + r 


4-030 
i. ) 

4-04-0 

FOR p = 

90 T O 4 51 

STEP (36© 

/ n 

LET ,.i = 

PI X ISO*p 



4-050 

LET hx 

= r * c o 3 . i + x 



4.0b0 

LET hy 

= r * S IN ..i + y 



4-070 

PLOT c 

x , e y 



4-0.30 

DRfl I.-.I h 

x - e x , h y - e u 



4-090 

LET CX 

= h X : LÈT •: 

y = Fi y 


4 100 

NEXT P 

RETURN 



Figura 9 
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10 REM p r o 9 r -a ftì rii -a di w ostrativ o 
99 EORDER 1: PAPER 0: CL5‘ 

100 LET X =123 : LET y=SS 

1*10 POR i =£ TO "7 

120 XNK i 

130 LET n L =i +1 

140 i ET r =i * 12 

150 GO SUB 40©0: N EXT i 

160 STOP 

999 REM - 


Figura 12 



Figura. 13 
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FLOTTAGGIO ELLISSI 


Un’altra interessante routine grafica (utilizzata anche in altri programmi di questo 
libro) è il ‘Plottaggio Ellissi’ (Figura 14). 

Con essa si possono disegnare una o più ellissi, verticali o orizzontali, a partire 
dalle coordinate X e Y del centro e dai raggi maggiore 'RMA’ e minore ’RMI’ di cia¬ 
scuna (Figura 15). 

Due ellissi con i relativi dati sono in Figura 16. 


99 BORDER 1 PAPER O : INK ~7 • C 

10 0 r e M x ., Y = c o c r d ì n a t e c e n t r o 
110 INPUT "inserire X 

1 s 0 IN p UT "in 5 - e rire Y ■ ■ m 
13 0 REM Rr-lfl = r a g g i o rn a g g i o r e 

li© INPUT "inserire RMfl " ; rma 

150 REM PM I = r aggi o n< i n o r e 
160 INPUT "Inserire RMI "irmi 

170 co sue 3000 

•130 STOP 

999 REM - 


Plottaggio ELLISSI 


3010 IF r m a > = r ni i THEN let =. t = r m a 

3020 IF r rn i > ss r m a THEN LET s t = r m i 

3 030 FOR P=0 TO 360 STEP 0.4- + INT 

c 3 0 ./ s t :i 

304.0 L ET rd=p*PI / 16 0 

305 0 PLOT r rn a * (COS rd > +x ., r rn i * (SI 

N r d ) + y 

3060 NEXT p RETURN 


Figura 14 
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Figura 16 
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DISEGNO QUADRATI 


Ultima routine grafica di uso generale è il ‘Disegno Quadrati’ (Figura 17) per dise¬ 
gnare dei quadrati a partire dalle coordinate X e Y dello spigolo in basso a sinistra e 
dalla lunghezza del lato L (Figura 18). 


9 9 

BORDER 

1: F'RPER 0: INK 4-: C 

L 



•10 0 

REM X 

, y = c o o r d i n a t e a n g o i. o 

110 

INPUT 

" I n j s r i i~ •=. x ' ' .« x 

!.. c:! O 

INPUT 

"In s e r i r e Y " ; y 

130 

REM L 

= i. a t. o 

14-0 

INPUT 

" In se rire L " ; t 

150 

G O S U B 

2000 

160 

STOP 


9 «9 9 

REM -- 


2 0 0 0 

Disegno uUhDRhTI HHHH 

20 10 

PLOT X 

, y 

£020 

DRfiU 0 

,1-1 

2030 

DRPlLI 1. 

-1,0 

ir! 0 4’ 0 

D R R l-.l 0 

, - l — i :• 

2050 

DRfiU - 

c i. -1 ) 0 

2060 

RETURN 



Figura 17 


l 

I 

i 

_I___4 

0 >■ 


Figura 18 
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SPIRALI 


Il programma di Figura 19 disegna un numero prestabilito (ns) di spirali a partire 
dai centro di coordinate x, y e con una determinata larghezza (I). Un esempio di otto 
spirali è in Figura 20. 


1 0 
£0 

REM 

REM 

K=1SM=T:1W*I 


_ 

c 

BORDER 1 : PAPER 0 : 

INK 

6 : C 

100 

REM 

x , 4 = c o o r d i n a 

t e c e 

n t. r o 

110 

LET 

X=i2 S: LET y =S 

s 


120 

R E M 

n s = n u ni e r o s 

Pi ra t. 

i 

130 

LET 

n ■=■ -S 



14-0 

REM 

i. = i. a i» g h e 2 2 a 

£■ p i r a 

i. ♦=• 

ISO 

LET 

L =10 



200 

LET 

£ t = L 13 O 



ir! 1 0 

FGR 

P = 0 T O 3 5 0 * n £• 

5 TER 

ir! 

22 0 

L ET 

j=PI/ 180 *p 



230 

PLOT 

S t *COS ,,i + X . £ t 

*3 IN 

.j +y 

24-0 

L ET 

■=. t, = £ t. + 1. ■■■• 1 O 0 




250 NEXT p 


Figura 19 



Figura 20 
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CONO TRIDIMENSIONALE 


I dati X.V.RMA.RMI.H all'interno del programma di Figura 21 che disegna un co¬ 
no tridimensionale (Figura 22), possono essere variati a piacere per disegnare coni 
con basi e/o altezze diverse. 


10 

9 © 

99 

LS 

IO® 

110 

19® 

13® 

14.® 

15© 

16© 

17© 

130 

100 ® 

1010 


REM 
REM 
BORDER 1: 


PAPER ® : INK 4- : 


REM X j Y scoordinate base 

LET X =193 : LET y=40 
REM RMA = raggio maggiore 

REM R MX = raggio minore 

LET rima =6® : LET r rn i =95 
REM H = altezza 

LET h =12 0 
Q . IJ E 1 © © © 

STOP 

IF rma>=rmi THEN LET st=rma 
XF r m i > = r m a then lET s t = r rii i 


Figura 21 (continua) 



Figura 22 
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1020 F O R 
< 3 0 / £• t ) 
103O LET 
104-0 LET 
1050 LET 
1050 PLOT 
1070 IF P 
TcO 1090 
1050 NEXT 
1090 DRflU 


p = 0 TO 360 STEP 0■2 + IMT 

rd=P «PI/130 
a = r m a- * < C O 5 r d ) + x 
b = r m i f (51N r d ) + y 
a , b 

<=30 OR p >=150 THEN 60 

p: RETURN 
- ( a - x ) , h - l - b + y 


1100 GO TO 1050 


Figura 21 


CILINDRO TRIDIMENSIONALE 

Anche nel programma di Figura 23 che disegna un cilindro tridimensionale (Figu¬ 
ra 24), modificando i dati X,Y,RMA,RMI,H, si possono disegnare dei cilindri di diver¬ 
se grandezze. Una variante di questo programma è usata in uno dei programmi di 
Business Grafica per visualizzare dei dati. 


10 

20 

30 

99 

L 5 
100 
1 IO 
120 
130 
14-0 
ISO 
160 
170 
ISO 


REM 
REM 
REM 

BORDER 1 : PAPER O: INK 6 : C 

REM x , Y = coordina te base t 

LET X =125 : LET y=123 

REM RMR = raggio rn aggio r e 

REM R MI = r a g g i o rn i ri o r e 

LET r rn a = 5 0 : LET r rn i = 4-0 

REM h = altezza 

LET h =50 

G O SUB 1000 

STOP 



1 q 0 © xF r rn a > = r rn i THEN LET s t = r rn a 

1010 XF r m i > = r rn a THEN LET s t = rn i 

1020 FOR P=0 TO 360 STEP 0.4- + INT 
(30/S t ’J 

1030 LET rd=p*P1x150 

104-0 LET a = rma*(COS rd) +x 

1050 LET b = rrni*CSIN rd)+y 

•1060 PLOT a , b 

1070 IF p >=180 THEN GO TO 1090 
1050 NEXT p: RETURN 
1090 DRflU 0,-th-1) 

1100 G O T O 1050 


Figura 23 
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Figura 24 


SFERA TERRESTRE 

Il programma di Figura 25 disegna, in modo molto bello a vedersi, una sfera terre¬ 
stre (Figura 26) intrecciando varie ellissi per ottenere le principali latitudini e longi¬ 
tudini della terra. 


10 rem »=ia=<a«Maa=wiaai 

20 REM - 

99 BORDER 0: PRPER 0: INK 5: C 

100 LET X = 12 S : LET y =88 


110 

LET 

r m a 

= 35 : 

LET r Hi i 

= 85 

120 

G0 

SUE 

1000 



122 

LET 

f rn i 

= 23 : 

GG SUB 

1000 

124- 

LET 

r m a 

= "7 4- : 

LET r mi 

= S 5 

126 

GO 

SUB 

1000 



123 

LET 

r m a 

= 4-3 : 

GG SUB 

1000 


130 LET y=120 


Figura 25 (continua) 
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14.0 LET rma=77: LET rmi=18 

150 GO SUB 1000 

152 LET y =56 

154- GO SUB 1000 

160 LET y=160 

170 LET rma =4-1: LET rm i =8 
180 GO SUB 1000 
190 LET y =16 : GO SUB 1000 
200 PLOT 128.3: DRRU 0.170 
999 STOP 

1000 F OR p =0 TO 360 STEP 0.4- 
1010 LET rd=p*PI/180 
1020 PLOT rma*cos rd+x.rmi«SIN r 
d +y 

1030 NEXT p: RETURN 


Figura 25 



Figura 26 
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PROGRAMMI DI BUSINESS GRAFICA 


I prossimi nove programmi introducono alla cosiddetta ‘Business Grafica’ vale a 
dire la rappresentazione in forme grafiche diverse di dati economici, statistici o an¬ 
che scientifici, tecnici, matematici, ecc. 

Nonostante lo Spectrum ponga alcune limitazioni di carattere grafico il risultato è 
comunque visivamente molto efficace. 

Tutti i programmi sono divisi in due parti fondamentali: la parte ‘Dati’ che contiene 
appunto tutti i dati numerici ed alfanumerici relativi al problema trattato, con i valori 
massimi consentiti e la parte ‘Programma’ che controlla la correttezza dei dati e li 
trasforma nella figura grafica scelta. È importante tenere conto delle note indicate 
per i vari programmi. 

TUTTI I DATI, I NOMI, LE CIFRE, ECC.. USATI NEGLI ESEMPI SONO PARZIAL¬ 
MENTE O COMPLETAMENTE INVENTATI E SERVONO A MOSTRARE IL FUNZIO¬ 
NAMENTO DEI VARI PROGRAMMI. 

Naturalmente è possibile utilizzare i grafici per visualizzare qualsiasi tipo di dati 
reali, come anche è possibile cambiare i colori impiegati negli esempi. 


DIAGRAMMA A TORTA 

È certo il più classico modo di rappresentare i dati nella Business Grafica. Il pro¬ 
gramma è in Figura 27. 

I dati vengono rappresentati in forma di fette (da 2 a 5) di una torta (Figura 28) 
che costituisce il 100%. 

Le percentuali delle varie fette sono contenute nelle variabili f (1 )...f(5) il cui totale 
deve essere sempre 100, la natura di tali percentuali è invece contenuta nelle varia¬ 
bili stringa P$(1)...p$(5). 

A causa delle limitazioni di cui si è detto nell’introduzione, in questo programma le 
fette adiacenti devono essere minimo di 2-3%. 


10 

REM 

20 

REM 

30 

REM 


Busi nsss Grif i cj 


DIRGRRMMR R TORTA 


Figura 27 (continua) 
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33 BORDER O: PAPER O : INK 7: C 

LS 

44 LET X =80 : LET y =80 
55 CIRCLE INK 4 X , y .. 60 


Dati 


110 REM a $ r»ì a x 6 4- c a r a 1 .1. e r i 
120 LET a $ = "COMPUTER PRODUCTS 
. r . l . Milano Percentuali di ape 
a a n ri o 1 ‘3 8 2 


130 

DIM 

f (5) 

14-0 

REM 

f C13 — f (53 = i a r g h e z: z a 

14-5 

REM 

■=. e 'jj ni enti t o r t a i n * • 

150 

REM 

2 — — 5 se g rii e ri t i 

155 

REM 

t. o t a i. e 100 v. e s a 11 o ! ! 

160 

LET 

f (13 =15.7 

1.7 0 

LET 

f(23 =22.5 

ISO 

LET 

f (33 =9.5 

190 

LET 

f (4-3 =33 

ir! 0 0 

LET 

f r5 3 =19.3 

220 

D IM 

p $ (5,9 J 

230 

REM 

p $ 1 - 5 rn a x 9 c a r a t tari 

24.0 

LET 

p $ ( 13 = " R « S * ' 

250 

LET 

P $ ( 2 3 = " I fu p o ste" 

26 0 

LET 

P $ ( 3 3 = " arie" 

270 

LET 

P $ ( 4.3 = "Materiali" 

26 0 

LET 

P $(5 3 = ' 1 S tipendi ' 1 

500 

REM 


5 10 

IF LEN a $>64 THEN LET 3 $ = a $ 

C 1 T 
520 

3 6 4. !i 

PRINT hT 0,0., INK 7, INUERS 

E 1; 
522 

a $ 

LET 

n s = 0 

530 

FOR 

a ss 1 T O 5 

f-ì 3 3 

IF f 

( a i 0 THEN LET ns=ns+l 

5 4-0 

NEXT 

a 

54.4. 

LET 

• •-> 

J — «C* 

550 

F O R 

a = 1 TO 5 

3 c; cr t 

j__ ^ y 

,.i = .j + r i. a .! 

560 

NEXT 

3 

573 

IF I 

NT j <: > 10© THEN GO TO 2 0 

00 

560 

D IM 

r ( n s 3 

590 

F OR 

a = 1 T o n £. 

6 00 

L. ET 

r i. a .i =pl 50* f '. a 3 

610 

NEXT 

a 

SII 

LET 

k. = 0 

620 

F O R' 

a = i i o n e 

6 30 

LET 

k = + r (a > 

64-0 

PLOT 

I f -i K 4 x , y : D R R W I N K 4 ■ ; 

60*003 k. . 

5 9* S IN k 

64-4. 

L ET 

m i s k. — ( r ( a i - i 

55 0 

LET 

2 = X + 5 3 * C O S in 

65 5 

LET 

t = y 4- 5 3 * S IN w 

656 

P L OT 

INK 4: z • t. 

6 ' 6 0 

LET 

2 2 =13* C O 5 mi 

666 

LET 

t t = 1S * S IN W 


Figura 27 (continua) 
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■.<1 MI 




STO 

D R fi UJ 

IN K 4 : Z Z . t t 



s S 0 

L. ET L 

= 51 B 3 — TN* ■! 

l_ ^ t 4- J_ ’l 

v c* 

1?: fi fi 

LET C 

-0.5 + 1 M T iz 

+ Z Z + ì J /' 

S-l 

e so 

F'RINT 

i T * ■- * *r ►. i c * 1 -, i • 11 

HI xmi •. ■=] + ■=. i 

■" 

700 

NE VT 

•zi 



7 10 

F O H a 

“1 T O r? 5 



~ «1 -I 

LET d 

$=STRS f ia ì 



— t ^ 

IF LE 

r-j d$>4 THEN 

LET d $ 

= d $ t 

1 T O 

4 :• 




720 

PRINT 

fi T 3 * 3 + 1,2 

1 ; 1 r-J x 

a + 2; 

“■ 

+ d| + " 

■ y • • 



730 

P P T NT 

HT t3+ 2 ; 2 

3; Ink 

a + 2 ; 

P $ •: a 





740 

NE XI 

a 



10OO 

STOP 




200 r 

PRINT 

hT 5,5, "Hi 

URLURI 

ERRH 



Figura 27 





Figura 28 
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CILINDRI 3 D 


Molto bella è in questo programma (Figura 29) la rappresentazione di quattro dati 
in forma di cilindri tridimensionali di diversa altezza e colore (Figura 30). 
L’altezza dei cilindri è inserita nelle variabili h(1)...h(4). 


IO REM B u ■=■ i nes ■=■ G r a f i c a 


CILIMDRI 3 D 


30 REM - 

33 BORDER O: PAPER O: IMK 7: C 

LS 

4- 4- L ET fini =11: LtT f rii 3 =23 

7 7 FOR 3=16 T O 13 


■3 3 

FOR 

b = © TO 3 1 

99 

PRIMT flT a,b; PARER 11" 

NEXT 

b: NEXT a 

ÌOO 

REM 


HO 

REM 

a $ ni a x 64 cara t te r i 

120 

LET 

a $ = "Proi£ 2 ioni vend i t e 

c o rn p u 

ters 

in Italia (pezzi x 1 

000 i 


1 ' 

122 

DIM 

h ( 4 3 

130 . 

REM 

h ( 13 — h (43 m a x 10 O 

140 

LET 

h (13 =24 

ISO 

LET 

h (2 3 =4 2 

160 

LET 

h (3 3 =64 

170 

LET 

h (43 = 3 3 

177 

R E M 

u $ 1—4 rn a • ' 4 c a r àtteri 

ISO 

D IM 

U $ ( 4 4 3 

190 

LET 

U# (li = “ 19 3 3 ' ' 

200 

LET 

U$(23=”1934" 

2 IO 

LET 

U $(33 = " 1 9 3 5 ’ ' 

220 

LET 

U $ (4 3 ="19 S 6 ' ' 

230 

REM 

n $ 1-4 rr, a x 5 n u rn eri 

24 0 

DIM 

n $ ( 4,5 3 

250 

LET 

ri $ ( 1 3 ="24" 

260 

LET 

n $ (2 3 ="42" 

270 

LET 

n $ ( 3 3 ="64 " 

2SO 

LE i 

n$ (43 = " 3 3 ’ ' 

29 0 

LET 

i $ = " ^ 

500 

REM 


5 IO 

P R I NT AT 0,0; IN K 7 IN U E R 3 

E 1..; 

a $ 


520 

POR 

C = © TO 3 

530 

PRIMT AT 20 , C.*? + 3; IMK 3; UÈ 

( C + 1 3 



5 40 

NEXT 

c 

550 

FOR 

C = O T O 3 

jrr r- pr 

IF h 

( C 4-11 <0 OR h ( C 4- X 3 » 100 T 

HEH "li¬ 

O T C 

2000 

se.© 

LET 

X = 4 O + C *■ 5 6 

370 

LET 

y =136- tlOO-h E C + 1 3 3 . 

530 

L. ET 

h = h ( C + 1 3 


Figura 29 (continua) 
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58 S LET 1 ='JRL i$lC+U 
590 GO SUE ÌOOO 
600 NEVT c 
610 FOh c-O TD 3 


620 IF KCC+13 >93 T MEM PRINT RT 
2.2 + C *7 ; IMK URL i$(C+5) :n.$(c+l) 
630 TP h ( c + 1 ) <94. THEN PRINT RT 
21- Ih t C + 1J .■•'8 + 7.1 ,2 + C*?; INK URL 1 


$ C C +5 

3 ; n $ < c +13 


640 

N E VT 

l" 


QmQ 

STOP 



1000 

FOR P 

=0 TO 360 

STEP 2 

1030 

LET r 

d =P *P I /' 1S 

0 

1040 

L ET a 

= r fu a * <: co 3 

r d 3 + x 

1050 

LET b 

= r rii i * i. s I n 

rdj + y 

1060 

PLOT 

INK i ;s . b 


1070 

IF p > 

=160 THEN 

G O TO 

1©60 

NEXT 

P: RETURN 


1090 

DRfiU 

INK i ; 0 . - 

t h - 1 3 

1100 

GO TO 

1060 


2000 

PRINT 

RT 5,5, "| 



1090 


Figura 29 



Figura 30 
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ISTOGRAMMI ORIZZONTALI 


Per usare questo programma (Figura 31) occorre stabilire il valore massimo Y 
della scala (linea 230) e quindi inserire nelle variabili d(1)...d(8) dei valori reali 
compresi tra 0 ed r. 

Da ciò si ottiene un grafico come quello di Figura 32. 


IO REM _ Business Grafica _ 

30 REM - 

99 BGRDER 0: PAPER O: CLS 
100 INK 6: PLOT 0,24- 
110 D R fi U 255,0 

12© FOR a =79 TO 24-0 STEP 3 
130 PLOT a, 16: DRRI.-.I 0,135 
14.0 NEXT a 

150 LET U=PEEK 23675+256 *PEEK 2 
3676 

15 5 FOR a = 0 T O 6 
160 FOR p=0 TO 7 


165 

PGKE 

U +P +a *6.256-2T (7-a) 


170 

NEXT 

p: NEXT a 


160 

FOR 

a=9 TO 30 STEP 5 


162 

$ 1 

PRINT fiT 20,a; IN U ERSE 1 
50 

; OH 

164 

NEXT 

a 


190 

INK 

7 


200 

REM 



2 10 

REM 

a $ rri a x 6 4 c a r a t tari 
a $ = ”Re d di t o p r o capi 


220 

LET 

t. e 

981 
n e 1 


(Mi (ioni Lire 11 

a L i 

2 30 

LET 

f =20 


240 

REM 

r = v a L o r e m a s s i m o s c 

a l a 

250 

REM 

v alari per r 


260 

REM 

10 c!0 40 100 200 

4©0 

270 

DIM 

d ( Si ) 

280 

REM 

v a lori d r. l) — d ( s ! t 

r a 

290 

REM 

0 e il v a l o r e rii a x ' ' 

r “ 

300 

LET 

d ( 1 :> = 12.5 


310 

LET 

d ( 2 ,i =9.7 


320 

LET 

d t 3 ) = 6.1 


330 

LET 

d f 41 -4.6 


340 

LET 

d<5)=5.4 


350 

LET 

d ( 6 .1 = 3.9 


36© 

LET 

d (75 =10.3 


370 

LET 

d ( 6 !• = 1 i 2 


3 8 0 

DIM 

C 5fc ( 8,9 .i 


39© 

REM 

c $ i - 6 ma x 9 carette r 

i 

400 

LET 

c $ ( l i = " u . 6 . fi ,_ " 


4 10 

LET 

c é (2) ="Gi a p p one 


4 20 

LET 

c$(3) = “ G e r rii a n i a _ " 


430 

LET 

c $ 1 4, «“Francia ' 1 



Figura 31 (continua) 
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4-4-0 

L ET 

C $ 

r 5 

> 


” T n 9 h i ». 

4-50 

LEI 

C $ 

!. 6 

.! 

= 

"Ita Lia, 

460 

LET 

C £ 

(7 

; 


L- 3 n a d a 

470 

LET 

‘7 $ 

r o 

ì 


G r « i* ì -ri 

499 

REM 






500 

REM 




p 

i ■_> q r 3 ru n i 

510 

IF 

LEM 

8 

$ 

> 

64 THEN 


i 1 T O 6 4- '> 

520 print pt 0 , 0 ; inverse 


3 $ = 3 $ 

i;a$ 


530 ERIGHT 1: INK 2: PRINT RT 2 
1,9; " 0 , RT 2 1,14.r * 4. ; RT 21,19; r y 


2 ; RT 

21,24 

; 

r / 4 3RT 

w •]_ ( £ 3 ; 

1 

540 

BRIGHT 

0 : INK 



550 

FOR 3 

£ 

1 TO 3 



Fi =,0 

IF d < 

a 

) ■: 0 0 C .3 

»! a !» > f T 

H E M 5 O 

T O 

2000 





57© 

NEXT 

a 




56 0 

POP 1. 


17 T O 3 

oTf^P -5 


590 

LET r. 

ss 

l l_ _ 1 1 Zi 



6 G’. 

PRINT 


RT 1 . , 

INK 4. ; c 

$ k. :i 

610 
20 :■ :• 

FOR C 

— 

10 TO 2+ 

INT Cd c 

i:. 1 ■ C r 

62 0 

PRINT 


RT , •: , 

IM K 5 

SPIGHI 

1 ; "1 







Figura 31 (continua) 
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63 2 

M E XT 

l” 




6 3 0 

LET n 

= >. d t r. i 

/• 

•: r .-20 :• :• - int 

•: d 

( K 3 ( 

r /2C :i 

! ) £ S 




6 4.0 

IF n 

= 1 THEN 


PRINT RT 1. , 

C • 

INK 5 

; BRI 

G HT 1 C 

H 

H $ 1. 4- + n > 


64-4- 

LET 

$ = Si R $ 

d 

t. K. ) : IF L.£N 

X $ 

>4. THEN LET Xl=Xl 

c 

1 T O 4- 3 


650 

IF c V 

15 THE M 


PRTNT RT 1. . 

10 ; 

BRIG 

HT 1 

PAPER 

c; 

; INK 0 


66 0 

IF c : 

16 THEN 


PRINT RT i. , 

16 

BRIGHT 1.; 

PAPER 

0 

: INK 3 $ 


7O0 

WEXT 

l. 




1000 

STOP 





2000 

PRI NT 

RT 5,5 

‘ 

H URLORX ERRA 


Figura 31 


ISTOGRAMMI VERTICALI 

La sistemazione verticale degli istogrammi permette di visualizzare con questo 
programma (Figura 33) dodici dati diversi (nel modo indicato in Figura 34), dati i cui 
valori vanno inseriti (dopo aver stabilito ‘r’) nelle variabili d(1)....d(12). 


10 

REM 

■ . . «li 

£0 

REM ■ 

ISTOGRRMMI 

30 

REM - 


99 

BORDER 0 : PRPER 

100 

INK 2 

P L OT 4 7 , 

110 

D R fi U 

0,127 

120 

FOR a 

=23 TO 153 

130 

PLOT 

40, a: DRRL.I 

14-0 

NEXT 

3 

150 

LET U 

= P E E K 2367 

676 



155 

F O R a 

= 0 T O 6- 

160 

FOR p 

= 0 T O 7 

165 

POH. E 

u + p + a * 3 .0 

166 

IF a < 

p THEN POK 

170 

NEXT 

p: NEXT a 

130 

FOR a 

=19 TO 4 5 

18 2 

PRINT 

HT a .i 4 .L 

144 


184 

NEXT 

3 

190 

INK 7 


i=I 0 0 

REM 

Da t i 


Gra f i c a 


CLS 
' E P S 


:k 2 


1 , CHR 
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tn tn un H tu tn tn- tn -■ tn tn- tn tnp tn tn r p r r r p r p p p r p p y y ti y lo y y y te y y y y y ro nj io ro fo hj ro ►■• ro io 
'D e# %i o cn tn p -. y-• y y y re* io p © io - j - j -1 n -j y tn p y ro p © <o 01 •• j - j -o •• j - j y tn p y io p © >o oj ■ j y tn p y •*> io p 
00© ©©©-■ tn^-t.j0- ro0H©©iocoyf^nj©©©0Q©©©©©pyrop©©©©©©©©©©©©©©© *-0© 


R E M a $ ni a x 5 4- car a t tsri 

LET 3 $ = " Con SUTil o HI edio 6 Ls t t 

t 3 ■' 1 ri J t 9 i_ j 3 i* j i"i ‘I-ti.-Jhi 1 


LET 

r =3© 


REM 

r — v -t» L o r n * •=. s i rr« o e -ri 

!.. «Si 

REM 

v s L o r i p e r r : 


REM 

6 15 3 0 e O 15s 30 0 600 

DIM 

d C 1 £ 1 


REM 

v a t o ri d ( i ' — d ( 15 « t 

r s 

REM 

0 e il v a i o r e ni a x ' ' r 

1 ' 

LET 

dC13 = £S 


LET 

d 1 £ 1 — £ 7 « £ 


LET 

d ( 3 1 — £ 6 • 6 


LET 

d (4-3 = £ 4- 


LET 

d C51 —££ 


L ET 

d C 61 =5 . 6 


L E T 

d C 7 .i - 19 


LET 

d CS1 =16. S 


i- LET 

d f 9 1 -19. E, 


LET 

d C 10 1 =£ 1 


LET 

d C ì i 1 = £ 3 . 7 


LET 

d C 1 £ 1 = £ 6 . 3 


D IN 

e $ < 1 ■=■ 3 1 


REM 

e $ 1 - 1 £ ni a x 3 e a r a t t. e 

i 

LET 

esci)=" GEN " 


LET 

C $ e £ 1 - '* FEd ” 


LET 

C $ C31 ="MRR" 


LET 

C $ C 4- 1 = “ RPR “ 


LET 

C $ C51 ="MRG" 


LET 

C $ ( 6 1 = ” G IU ' ' 


LET 

C $ C 7 .1 = " LUG " 


LET 

C $ CSI = " R G O " 


LET 

C $ C 91=" SET " 


LET 

C$ C10) =" OTT " 


LET 

C$(ll) = “ N O 1 ‘ 


LET 

REM 

C $ C1£1 ="DIC" 


REM 

■aEnzm 


IF LEM a $>64- THEN LET a $ = 
O 6 4 -1 

a $ 

PRINT RT 0,0; IN U ERSE l;a 

$ 

1 

BRIO 

HT 1: INK 4-: PRINT RT 


PRINT flT 4. ,4-LEM STR$ r;r 
PRINT RT 9 j 4- -L EN 5T R $ « r X3 * 

r/3 *2) 

PRINT RT 14- , 4-LEN STRS (r/3 
/ 3 i 


BRIGHT 0: INK 7 
FOR a =1 TO 12 

IF d Cai < O OR d cal r THEN 80 
5 000 
NEXT a 

FOR C=7 TO SS STEP £ 

LET k = C -5 l •••■£ 
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IMK 5;c|(k,l 


600 PRINT flT 19, •: 


i 


602 

PR I NT 


RT 20 . C : INK 

5 ; C J t K , 2 

604- 

PRINT 


flT 21, C.; INK 

5 ; c $ !. K , 3 

' 610 

FOR 1. 

— 

13 TO 15-INT 

s d r k ì r i- 

/ 15 ) 

> STEP 


-1 


62© 

PRINT 


flT L,C; INK 6 

. ,, m ,. 

622 

NEXT 

1 



630 

LET n 

S 

( ( d < k ) / ( r / 15 ) 

:* -1 nt (d 

C K .1 / 

(r/lSJ 

.1 

J *8 


64-0 

IF n > 

= 

1 THEN PRINT 

flT L . c ; 

INK 

6.i CHR $ 


( 14- 3 + ( 8 - n ) 1 


65© 

NEXT 

c 



1000 

STOP 




£000 

PRINT 


flT 5,5.! " HHHSQ 



r x 


Figura 33 



Figura 34 


31 






ISTOGRAMMI VERTICALI A COLORI AFFIANCATI 


Questo è il primo di tre programmi che visualizzano e paragonano tra loro dati 
provenienti da fonti diverse ma della stessa natura. 

Anche in questo programma {Figura 35) va stabilito Y tra i valori indicati e quindi 
vanno inseriti i dati degli istogrammi blu, verdi e azzurri rispettivamente nelle varia¬ 
bili d(1 )...(4), e(1)...(4), f<1 )...(4). Tutti i dati inseriti in tali variabili devono avere 
valori arrotondati a causa di alcune limitazioni grafiche. Nell’esempio di Figura 36 i 
valori potranno essere per esempio: 80, 90, 110, 140, ecc... 

Le stringhe j$, k$, w$ contengono gli argomenti a cui si riferiscono rispettivamen¬ 
te gli istogrammi blù, verdi e azzurri. 


n 


10 

20 

30 

4-0 

99 

100 


REM 
REM 
REM 
REM 
B0RDER 
INK 2 : 


Business Grafica 


I -.Tu GRh M M I U E RT ICflLI 
Fi COLORI FiFF IflNCflT I 


0: PAPER 0: CLS 
PLOT 4-7,16 


110 

DRflU 

0 , 119 

120 

FOR 

S=15 TO 136 STEP 3 

130 

PLOT 

40,a: DRflU 215,0 

140 

NEXT 

a 

150 

FOR 

a=15 TO 136 STEP 40 

160 

PLOT 

: -i* 2 .i a : D* R H U .1 0 

170 

NEXT 

a 

1 S 0 

INK 

“7 

200 

REM 


210 

REM 

a $ m a x 6 4 c a r a t t e- r i 

220 

LET 

a$ = "Pr o d u z i o n e m o n d ia Le 

d i 

pe t ro 

Lio 1979 ..'1962 ( i n M i Lio 

i d 

i bar 

i Li) ” 

222 

LET 

K. $ = “ U . 5 . H . " 

224 

LET 

W $ = " LI . R . S . 6 . ‘ ’ 

226 

LET 

j $ = " O . P ■ E . C . 

2 2 S 

REM 

.j è K $ w $ m a x 6 c a r a +. t. . 

230 

LET 

r =150 

240 

REM 

r = v a L o r e m a s s i ni o s c a L a 

250 

REM 

v a L o r i p e r r 

260 

REM 

6 15 30 60 ISO 300 600 

270 

D IM 

d C 4 3 

2 7 2 

D IM 

e ( 4 ) 

2 7 4 

D IM 

f ( 4 3 

260 

REM 

v a L . d e f ( 13 - - ( 4 .i t r a 

290 

REM 

0 e i L v a L o r e rn a x " r " 

300 

LET 

d(1)=120 

310 

LET 

d(23=140 

320 

LET 

d £33 =130 

330 

L ET 

d (4 3 =110 

345 

LET 

£(13=60 

350 

LET 

£ ( 2 3 = 7 0 

355 

LET 

£ £33 =60 

36 0 

LET 

e £ 4 3 =90 

3 7 0 

LET 

f £ 13 = 3 0 


Figura 35 (continua) 



carattsri 


372 LET ff£ì=30 
374- LET r ( 3 ) =4-0 
3 7 6 L. ET f ( 4- ) =60 
380 DIM C*U,5) 

39 0 REM c $ 1 - 4. m a a 5 
4-00 L.ET c$ (1) ="1979" 
4-10 LET C$ (2) ="1980" 
4-20 LET C $ i. 3 3 = " 198 1 " 
4-30 LET C $ f 4-1 =" 19.32" 
499 REM _ 


500 

REM 

WE 

OS 



502 

IF LEN 

j $ > 

3 

THEN LET 

,i $ = j $ ( 

1 T 0 

0 '• 




504 

IF LEN 

K $ > 

s 

TMEN LET 

K $ = K $ ( 

1 T O 

3 ) 





506 

IF LEN 

W $ > 

l“l 

THEN LET 

w $ = W $ ( 

1 TG 

3 ì 





SIO 

IF LEN 

a $ > 

6.4 

THEN LET 

at=a$ 

t 1 TG 

64) 





520 

P R I NT 

RT 0 

0 

, INVERSE 

l, a $ 

Fi22 

INK 6 : 

PRINT 

RT 20 3 

"S" 

53© 

PRINT 

RT 5 

, 4 

-LEN STRI 

r ; r 


5 3 3 P R I NT RT 10,4 - L E N ST R $ f r / 3 


-+■ g J ; ( f / 3 a £ ) 


. 535 

PRINT 

RT 15 , 

4 - 

LEN STR$ ( f ,-3 

) : c - 

3 ) 




540 

INK 7 




Fi 4 £ 

PRINT 

RT 3,0 

.* 

ink i; "H"; p 

flPER 

7 j $ 

PRPER 

O ; 

INK 4 ; RT 3,1 

1.; WM 

k. 

INK 5.; 

RT 

3,22.; " MM 1 ' w $ 

550 

FGR a = 

1 T G 4 



560 

IF d (a 

) t 0 O R 

d 

< a ) > f T H E N G O 

TG 2 

000 




56 2 

IF e (a 

) < 0 U R 

*5.’ 

* a ) >f THE N GG 

TG 2 

000 




56 4 

IF f (a 

) \ G Li R 

c 

i 

(a) > r THEN GO 

TG 2 

000 




570 

NEXT a 




530 

FGR c = 

7 T O 2 

c; 

STEP 6 

59© 

LET K = 

C C - 1 ) 

E* 


600 

PRINT 

HT cì* 1 i 

r , 

c $ ( k ) 

610 

FGR L = 

19 T G 

20 

- INT ( d t K ) ( r 

" 15 ) ) 

STEP 

- 1 



620 

PR I NT 

RT 1. , C 


IN K. X ; " mmH ' ' 

6 3 © 

NEXT L 




640 

F O R L = 

19 TG 

20 

-INT (e « K. ) ( r 

..• -15) ) 

STEP 

- 1 



650 

PRINT 

RT 1. , C 

+ 1 

INK 4, "■■■" 

E'60 

NEXT l 




670 . 

FGR L = 

19 T O 

20 

-INT c f ( k. ) K ( r 

/15)) 

STEP 

- 1 



6 0 0 

PRINT 

RT i. , C 

+ 2 

INK 5.; 

699 

NEXT 1. 

NEXT 

c 


1000 

STOP 




2000 

PRINT 

RT 5,5 

’’ 



Figura 35 
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ISTOGRAMMI VERTICALI A COLORI SOVRAPPOSTI 

In questo programma (Figura 37) i dati vengono confrontati tra loro sovrapponen¬ 
do in blocchi i vari valori. 

Come nel programma precedente i dati inseriti nelle variabili devono avere valori 
arrotondati ed in più la somma dei dati di un singolo istogramma non deve superare 
il valore di ‘r’ stabilito precedentemente nella linea 230. Per esempio con r=30 la 
somma di d(3), e(3), f(3) non deve superare appunto il valore di 30. 

Ai blocchi blu, rossi, gialli corrispondono rispettivamente i dati delle variabili 
d(1)...(5), e(1)...(5), f(1 )...(5) e gli argomenti contenuti nelle stringhe j$, k$, w$. 

Con i dati esempio inseriti nel programma si ottiene l'immagine di Figura 38. 


10 

REM 


id* I -ri r ì 9 

20 

REM 

I ISTOGRAMMI 

PERTICALI ■ 

3 0 

REM 

A COLORI SOURAPPOSTI ■ 

4.0 

REM 



Q Ci 

BORDER 0: PAPER 

0: GL 5 

100 

INK 

3: PLOT 47,1 

& 

110 

C’RFlU 

0.119 


120 

POR 

a=15 TO 135 

STER S 

130 

PLOT 

40 . a : DRRU 

20 7,0 

140 

NEXT 

a 


ISO 

POR 

a=15 TO 138 

3T E P 4 0 

160 

P L. OT 

6 cT , a : D K *-1W 

5,0 

170 

NEXT 

a 


ISO 

INK 



200 

REM 


HÉU 

210 

REM 

a $ iti a x 6 4 •: 

a r a + . \ a: r i 

22© 

l_ ET 

aì = "Pro d u :ion e m o n d i a t e 

a U t. O 


>. i " ■ 4 i i 

o ni di Ptzz 

o o *«• 

LET 

•j $ = " U . 8 . H . " 


224 

LET 

KS = "Euro p a “ 


2 26 

LET 

ili $ — 1 , 2 * Ì •—1 p 1 C‘ IJ n 

* ' 

i=! 3 

REM 

,.i i K $ w $ fii a x 

tì C à !‘ 3 t. t a 

230 

LET 

r =30 


243 

REM 

r — v a l o r a rr< a 

a a i rii o a c a i a 

2 50 

REM 

l » "i r ì o tf* 

* ! 

260 

REM 

6 15 30 60 

15 0 3 0 0 6 0 0 

27© 

D IM 

d (S) 



D IM 

e ! s ì 


2 7 4 

DIM 

f ( 5 ) 


28© 

REM 

V a !.. d f £ F f T 

il ' -• — V *z. .! t. f a 

290 

R E M 

0 a i L ’u a L o 

r ni a * ' r * ' 

3 00 

1.ET 

.“ì i‘ 1 ’* =5 Ci 


310 

L E T 

di2i =ii 


32© 

LET 

d 3 ; = 13 


3 30 

LET 

d : 4 i = 11 


3 4- 0 

L. ET 

d t 5 ) = 12: 


34 5 

LET 

e i: 1 ì = 8. 


350 

LET 

*.«.' * — T* 


ET, 

LET 

: *! 3 1 — T 


3 6 0 

LET 

!. c!j.. ,1 “ 
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3 7 0 

LET 

f (1) 

— ,_7 



3 7 2 

L. ET 

f ( 

2 i 

= 4 



3 74- 

LET 

f ( 

7; ;• 

_ CL 



376 

LET 

f £ 

4 5 

— 7 



3 3 S 

LET 

r 

FI i 

_ t =; 



3 S 0 

D IM 

c $ 

r c=: 

3 J 



33© 

REM 

C$1- 

5 ir. a x 3 

c a r a t 

t£ r i 

4-00 

LET 

•: $ ( 1 

"i — * * ' “7 Ur _ * ' 



4 10 

LET 

■: $ 

i 2 

) “ 1 : ' 7 0 : ! 



420 

LET 

c $ 

( 3 

;i = * ■ • v* 3 ‘ * 



430 

LET 

$ 

(41 = 11 '30" 



440 

LET 

c $ 

i_B 

j =: .—* 



4 9 9 

REM 






500 

R E M 



M=3THf >Xf |J=r,i! 

r*9=MI 


502 

IF LEN 

J 

$ •> 3 TRE N 

LET 

» 

n 

» 

1 T 0 

0 ) 






504 

IF L 

EN 

K. 

$ > S T H E N 

LET 

K $ - K. $ £ 

1 T O 

3 :i 






5 0 6 

IF L. 

EN 

ih * > 3 T H E M 

L. ET 

IH $ = IH $ < 

1 T G 

S j 






510 

IF L 

EN 

a 

$>64 THE 

N LET 

a $ = a $ 

r 1 TC 

64 ì 






520 

P P I NT 

RT 

0.0: IN 

UER 3 E 

1 ; a $ 

5 1=1 £ 

BRI 9 

HT 

± 

INK 4 : 

PRINT RT 2 

0,3 " 

0 " 






5 3 0 

PRINT 

RT 

5.4-LEN 

3TR $ 

r i r 

FI 3 

P P I NT 

RT 

10:4— L e. 

N 5TR$ 

* 2 i ( 

!" .• *’ 3 

1=1 ■ 





5 3 5 

h-' r*I X Tì i 

H J 

15 . 4 - L E 

i w •— 1 i r*. 

ai ì -—i 

540 

B R IG 

HT 

0 

T r-. j K 7 



54 2 

B R IG 

HT 

1 

• C ' Cli T r. 1 T 

r P. X 1 1 i 

RT 3 , 

0 I Tkju- 

5 i " n "i 

$ : 

INK 2 : RT 

Li» .Ili 

• 1 mi • • 

$, INK 6.; 

RT 

" 

Mi ' ' 

, '.'.1 $ 


5 4 4 

BRI G 

HT 

0 




550 

F O R 

•3 — 

•1 

-i. 

T C_- 

1 •_< 



5 6 0 

TF r 

d 

■3 i 

4-i* .=1 i 4- f i 

3 ‘i i •: 0 

Q r d 

( a j + e 

•: a ) + 

r 

a i 

) > THE N 

G 0 T 

0 2 000 

5 7 0 

fi EXT 

a 





5 30 

F 0 R 

c — 

1? 

T 0 2 7 3T 

El r~' S 


5 90 

LET 


r i * - 




600 

PRINT 

RT 

S I , c C $ 

». !■:. .» 


610 

FOR 

!. = 

13 

1 O 2 0-1 

NT ( £ 

d ( K 1 + e 

i' V. 'i + r' 

J k jl 

i" 

r 

15 ì 'i 3T E 

~ X 

, , 


620 

P : T MT" 

i=iT !, . C 


T »\i ri 0 1 * 1 

6 3 0 

NE XT 

i_ 



6 4 0 

POR l. 

= 19 T C 

•1-i 

- 1 NT ( £ d £ >: ) te 

k. ) :i 

■ £ r 15 

) ) 5TEP 

— 

1 

650 

PRINT 

RT l. , C 


INK 2 , "■■1" 

66 0 

NEXT 

I 



670 

F O R 1. 

= 13 T C 

2 0 

-INT (d (t) /(f 

15) ) 

3T E P 

- 1 



»Z' O 0 

PRINT 

RT 1. , C 

I 

INK 1.: 

6 3 9 

NEXT 

L : NEXT 

c 


000 

ST 0 P 




000 

PRINT 

RT 5,5 

, "l 

URL OR I ERRRI 
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ISTOGRAMMI VERTICALI TRIDIMENSIONALI 


Questo programma (Figura 39) è sostanzialmente simile a quello di Figura 35-36 
ma reso molto più bello dall'effetto tridimensionale dei vari istogrammi. 

Anche in questo programma i dati inseriti nelle variabili devono essere arrotondati 
e non superare il valore massimo Y. 

Questa volta gli istogrammi sono verdi, azzurri e gialli e ad essi corrispondono ri¬ 
spettivamente i dati delle variabili d(1)...(4), e (1 )...(4), f(1 )...(4) e gli argomenti 
contenuti nelle stringhe j$, k$, w$. 

L'immagine tridimensionale creata con i dati esempio è in figura 40. 


IO REM 
SO REM 
30 REM 
4.0 REM 

99 BORDER O: PAPER O: CLS 
lOO INK 2: PLOT 39,24 
110 DRAU 0.119 

112 LET IJ =PEEK 2 3675+256+PEE K 2 
3 6 "7 6 


114- 

DATA 

255,127,63 

31,15,7,3 

, 1 

, 123 

19 2.2 

24.24.0.24.3 . 

252.254- . 2 

55 

115 

DATA 

255,255,255 

,2 2 3,207, 

19 

9,19! 

5,193, 

192,96,43,2 

4- , 12,6,3, 

I , 

192 . 

192,19 

2,192.192,192.192.19 

£ 

116 

FOR a 

= ij TO u +39 



113 

READ 

d: POKE a,d 

NEXT a 


120 

FOR a 

= 5 TO 7 



12 2 

F'RINT 

AT 14- + a . a : 

INK O; PAP 

ER 2 

CHRÈ 

14-5; ” 




" J CHR4 14-4- 



124- 

NEXT 

a 



126 

P L OT 

32,23 : DRAU 

7 , O 


128 

F O R a 

= 3 1 T O 14-6 

ST.EP 3 


130 

PLOT 

32., a: DRAU 

192.0 


14.0 

NEXT 

a 



150 

F O R a 

= 23 T O 14-6 

5TEP 4-0 


16 0 

PLOT 

2 4- .. a : D ft H U 

S , 0 


ITO 

NEXT 

a 



ISO 

INK 7 




200 

REM 


■ 



SIO P: E M a $ rii a x 3 2 c a r atteri 


220 

LET 

a $ = "ue n d i t 

e p r o ‘3 r a rii rii i 3 

OFTC 

ORP i 

n M $ " 


22 2 

LET 

j$ = "Pro f e s 

a 

224- 

LET 

k. $ = " 5 c i e r t 

• 

2 2 6 

LET 

ili $ = "Gi O Ch i 

' ' 

2 2 S 

REM 

,.i $ k. $ w $ m 

a x 3 c a r a t t . 

230 

LET 

r = 15 


24-0 

R E M 

r = v a t o r e 

ni a s £ i rii o =■ c a La 



Figura 39 (continua) 


38 



250 

REM 

v a 1.0 r i p <£ r r 


260 

REM 

6 15 30 60 150 3 

0 0 6 0 0 

27© 

D IM 

d (43 


4P t*‘ Ct! 

D IM 

e ui 


274 

D IM 

f ( 4 ii 


260 

REM 

v a L. d e f i; 1 ;i — t 

4 ii t r a 

290 

REM 

0 £ i L v -5 L 0 r s rù .3 

x " r " 

300 

LET 

d ii 1 i' =4 


3 10 

LET 

d li 2 il = 6 


32© 

LET 

d(3)=7 


330 

LET 

d ( 4 ii =12 


345 

LET 

e 1 ; 1 ii = 2 


350 

LET 

e ii 2 i* =4 


355 

LET 

e c 3 ii •= 6 


360 

LET 

€ < 4 ) = 10 


3 70 

LET 

f li 1 il =1 


■_j r' ì=! 

LET 

f ( 2 ) = 2 


374 

LET 

f li 3 il ss 5 


3 7' S 

LET 

f ♦. «4- ) 55 y 


360 

D IM 

C$(4,3 ) 


390 

REM 

C $ 1 — 4- ivi 3 X -J* C 3 r -3 t, t£ r i 

400 

LET 

C $ 'i 1 il ss” 79" 


410 

LET 

C $ t 2 ii =" ' 80" 


420 

LET 

C $ (3) =" - 81" 


43© 

LET 

C $ (4 il =" - 62" 


4 99 

REM 



500 

REM 



502 

IF 

LEN ,i$>3 THEN LET 

j $=j $ « 

1 TO 

ì 

504 

IF 

LEN K. $>8 THEN LET 

K $ = K $ « 

1 TO 

6 il 


506 

IF 

LEN 1.1 $ > 6 THEN LET 

i,i.i $ = i.i.1 $ i; 

1 TO 

& ;i 

510 

IF 

LEN a$>32 THEN LET 

a $ s=a $ 

C 1 TO 32 

1 

520 

P R I NT RT 0 ,0 IN U E R S E 

1 ; a $ 

524 

INK 

7: PRINT RT 19,2; 

■•0“ 

530 

PRINT RT 4,3-LEN STR$ 

r ; r 

t=T 

PRINT RT 9,3-LEN STRi 

( r 

2 ) ; ( 

f / 3 * 

2 ) 



PRI NT 
'j ; c r 3 'j 
54-2 PRINT 
; INK 5;RT 


RT 14. , 3 -LEN STR,$ ( r / 


RT 2,0 i_INK 4. , "Hi" : j 

2,11; "Hi" ; K $ INK 6; 

; w $ 

550 FOR a =1 TO 4- 

560 if d<a) <0 or d (a) >r then go 

T O 2000 

562 IF £ ( a ) < 0 u R sfa .1 r THE n g o 
TO 2000 

5 64 IF fi; a il < 0 O R f 1 ; a .1 > r THE N G O 
TO 2000 
570 NEXT a 

560 FOR c=7 TO 22 STEP 5 
590 LET K. = ( C -2 il /& 
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600 IF d(K)/(r/15) isl THEN PRIW 
T RT 19 ■ ■: i INK 4-. PRPEP. 2, CHR$ 1 
4-7; 

61© FOR L =1S TO 19-INT £d (K) / (T 
/15)3 STEP -1 


620 

8 , 

PRINT 

i 

RT 

1. , C 

; INK 4;CHR$ 14 

63© 

NEXT l 




632 

IF d C K 

) / 

( r / 1 

5 3 >=1 THEN PR IN 

T RT 

l + 1, c ; 

INK 4 

; chr $ 146, "H" ; 

CHR* 

145 




634- 

NEXT 




036 

FOR C = 

7 

TO 2 

2 STEP 5 

636 

LET K = 

( c 

— £ ) y 

e; 

64-© 

IF £ (K 

) y 

( r • 1 

5 'J >=1 THEN PRIN 

T RT 

20jC ■+■ 1 

,i 

INK 

5, PRPER 2 CHR $ 

14-7; 

"H 1" 



64-4- 

POR l = 

12 

TO 

20 - INT Ce CIO /ir 

/ 15) 3 

STEP 

-1 



650 
148; " 

PRINT 

RT 

1. .. c 

+1; INK 5;CHR* 

660 

NEXT L 





Figura 39 (continua) 
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t- t'i=! 

IF €• C K 1 ./ 

( r x 1 

5) > = 1 THEN PRIN 

T RT 

l + 1 . c + 1 

INK 

5 CHR $ 146 ; "Hi 

" ; CHR$ 14-5 



664. 

NEXT C 



Ft Fi 6 

FGR C=7 

TO 2 

2 ST E P 5 

6 6 s 

LET y. = t c 

— ì 

cr 

670 

IF f ( K. 1 

c r ./1 

5) V=1 THEN PRIN 

T RT 

i=! 1 t i C + \.i 

INK 

6, PRPER 2 CHR $ 

14-7 ; 

.. > • 



6 77 

FQR L =20 

TO 

2 1 - I NT ( f i. K. i / i; r 

151 1 

5TEP -1 



660 

PRINT RT 

I. i c 

+2; INK 6;CHR$ 

14 8,; " 

11 



690 

NEXT 1. 



692 

IF fi.y-.-i/ 

t r ■ 1 

51 ::•=! THEN PRIN 

T RT 

L+l j C *f i=.‘ i 

INK 

6 > CHR $ 146 ; "%■ 

";CHR$ 145 



695 

PRINT RT 

21 . 

c + 3 ; INK 0; PRP 

ER 6.; 

C $ ( K. 1 



699 

NEXT c 



1000 

STOP 



2000 

PRINT RT 

5 5 

H MALORI ERRH 


t f 


Figura 39 
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DIAGRAMMA 


Altro classico sistema di rappresentazione di dati in modo grafico è il ‘Diagram¬ 
ma’ prodotto dal programma di Figura 41. 

Nel grafico, la linea segue da sinistra a destra i sei valori contenuti nelle variabili 
d( 1 )... (6). valori che possono essere anche decimali ma non superiori ad Y che an¬ 
che in questo caso va prescelto tra i valori indicati nelle linee 260 e 266 ed inserito 
nella linea 230. Come visibile dall’esempio di Figura 42 l’unico difetto (del resto non 
determinante) è che la linea gialla cambia il colore del reticolo quando vi passa so¬ 
pra e questo a causa delle limitazioni di colore in una stessa zona del video. 


IO 

REM 

Busin e s s 

Grafi 

c a 

20 

REM 



3© 

REM - 



— 

99 

BORDER O: PRPER 

© ; CL 

3 

100 

INK 2 




102 

FOR a 

= 23 T O 14-3 

STEP 

3 

104- 

PLOT 

4-0. a: DRflU 

7 , O 


120 

NEXT 

a 



130 

FOR a 

= 4-7 T O 24- 8 

STEP 

»“» 

132 

PLOT 

a, 16: DRflU 

0 .. 7 


14-0 

NEXT 

a 



ISO 

F O R a 

= 23 TO 14.3 

STEP 

4-0 

152 

P L OT 

3 2 t a ; D R t-l U 

215 , O 


160 

NEXT 

a 



170 

FOR a 

= 4-7 TO 24-6 

STEP 

4-0 

177 

PLOT 

a .i t» : C* Fi h U 0 

, 135 


160 

NEXT 

a 



190 

INK 7 




200 

"EM 


Hfl 


210 

•EM 

a s ni a x 64- c 

a r a 11 

a r 

eu 1 2 0 

LET a 

$ = ' ' U a r i d z i o n a " ■ 


Ra 

te"” Ban cheIta l iane de 

c a 

197; 

2 - 1962 

* * 



230 

LET r 

= 30 



24-0 

REM 

t* = y % i. o r e ni a 

s s i ni o 

s. 

25 0 

REM 

v a i. o r i 

P e r r 


26© 

REM 

6 15 3© 60 

ISO 3 

00 

26 6 

REM 

600 1500 3000 6000 

270 

DIM d 

( 6 ) 



280 

REM 

va Lore d ( 1) 

- - te;t 

t 

290 

REM 

0 e i L v a i. o 

r e rn a 

X 

300 

LET d 

i) =5, 2 



310 

LET d 

i; 2 j = 11 . 4 . 



32© 

LET d 

C3 ) =15.3 



•jS cu 2 

LET d 

( 4-1 =16. S 



3 2 4- 

LET d 

( 5 ) =22.5 



3 2 6 

LET d 

(61=19.7 



33 0 

NEXT 

a 



34-0 

D IM c 

& < 6,3 :» 



3 S 0 

REM 

t $ 1 - 6 rn a x 3 

c a i“ a 

11 

36© 

LET CSC1) =’’ 72" 
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a $ ss 3 $ 


370 

L ET C $ f 2 1 

SE 

7J- ’■ 

3 S 0 

L ET •: $ ( 3 3 

___ i i 

75 " 

390 

LET C $ (4- ) 

= '* 

■?P * • 

4.00 

LET C $ (51 

_ i * 

30" 

4-10 

LET C $ (53 

= " 

85" 

4-99 

REM 



50© 

REM ■ 

P 1 u 

•3 i 3 rri fn a r 

510 

IF LEM a $ >64- 

THEM LET 

( 1 TO 

64- 3 



520 

PRINT RT 

0 , 0 

; IM VERSE 


530 INK 7 : PRINT RT 19.S:"©" 

54-0 PRINT RT 4-, 4--LEM STR$ f,f 

550 PRINT fiT 9; 4-LEN STR$ (f.-'S* 

o ) j £ j“ / 3 ^ ) 

*“560 PRINT RT 14-, 4--LEM STR$ (r/ 3 
> j C r ./ 3 3 
57© INK 4- 
530 POR 3=1 TO 5 

590 IF d (a 3 <0 OR d C a 3 > r THEN GO 
T G £ 0 0 0 
600 NEXT a 

61© FOR a =4- TO 29 STEP 5 

Figura 41 (continua) 
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620 

PRINT hT 

2 1,a; c 

$ •: •: a +1 ) /■ 5 :• 

6 3 0 

NEXT a 



6 4-0 

IWK 6 



6 50 

FOR X =4-5 

TO 2 4-0 

5T E P 4-0 

6 6 0 

LEI K = (X 

- 6 .1 4- 0 


è* t< & 

LET '4=23 

+ d ( K ) ( 

r/120) 

6 7 O 

LET 1. =23 

+ d ( K + 1 'i 

•••• ( r •••• 120 ì 

"7 "7 

PLOT x y 

DPRU 

3 9 , L — y 

6 60 

NEXT x 



699 

IWK 7 



1000 

5T O P 



2000 

PRINT RT 

• 

5,5 | 




Figura 41 




DIAGRAMMA A SUPERFICIE 

Ultimo esempio di Business Grafica è il 'Diagramma a Superficie’ utilizzato per 
confrontare l’andamento di due curve riferite a due argomenti legati tra loro. 

Nel programma (Figura 43) i dodici valori che determinano l’andamento della 
curva blu e della curva gialla vanno inseriti rispettivamente nelle variabili d(1 )... (6) e 
i(1 )---(6) • 

Questo programma può essere utilizzato solo se la distanza tra le due curve è, in 
tutti i punti, superiore a 16 pixels. 

Con i dati esempio si ottiene l'immagine di Figura 44. 


10 
20 
30 
99 
100 
102 
104- 
120 
130 
132 
14-0 
150 
152 
23 TH 
160 
170 
177 
7 THE 
180 
182 
184 - 

spazi 


REM 

REM 

REM 


Business Grafica 


0 


PAPER O : GL! 


BORDER 
INK 4- 

FOR a =23 TG 14-3 
PLOT 4-0 , a : DRflU 
NEXT a 

FOR a =4-7 TO 24-8 
PLOT a , 16 : ORALI 
NEXT a 

FOR a =23 TO 14-3 
PLOT 32, a: ORALI 
EN ORALI 200,0 
NEXT a 

FOR 3=4-7 T O 24-8 
PLOT a, 8: ORALI 
N ORALI 0,120 
NEXT a 

FOR i. =4- TO 18 

PRINT AT l. ,6; PAPER 6; 

” : REM 


STEP 

7,0 

STEP 
0,7 

STEP 
15,0 


STEP 
0,15 : 


8 


4-0 

IF 


■d = 


4-0 

IF 


3=4- 




186 

NEXT 


l 


190 

INK 

r* 



200 

REM 


■HCII1H 


210 

REM 


a $ max 64- car a 

tteri 

2 20 

LET 

a $ = " O u o t a z i o n i 

m e d i e $ 

ISA 

( b I. U ) 


•=• e I n 9 i- e s e ( 

g i a i. i. o ) 

’7 -8; 

2 in 


ire" 


23G 

LET 


— 3000 


24-0 

REM 


! ” = v .3 i. o r e •’' ! a s s i 

(n O £, C d L 

250 

REM 


v a L o r i p e r 

r ; 

260 

REM 


6 15 30 60 ISO 

3 0 0 

266 

REM 


600 1500 3000 

6000 

270 

.DIM 

d 

r 6 ) 


28 0 

R E f-1 


v a i. o r e d 11 s — c 

s :ì t. r 3 

2 3 1=! 

O I M 

i 

161 


284- 

R E M 


v a i. o r e i l ) — < 

E -1 t r a 

290 

REM 


0 e it v a i. o r e 

m a x " r " 


Figura 43 (continua) 
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Q © © OJ 0 © © OW CMO © IO © © © © Q © © © © © |~ © © © © w © u © © © © 00©000©ij30r-©0©©0H©00 
0 h oi oj oj oj oj 0 (0 o 0 0 io 0 n © cri © h iji © h oj 0 ^ io • -.© p- (o «ji o cr» o 0 h oj 0 0 0 0 r- r - 0 cn oh 0 h oj 0 0 

0000 0 0 0 0 0 0 0 (0 0 0 0 000 0 ^ ri 0 0 H U'i Uj 0 0 ■- 0 ■ -000h 0 h 0 00000000000f - P- P - p- P- P- f - 


i_ET d i l 5 =662 
LET d < 2 ì =694 
L ET d (3) =785 
LET d <4.5 =642 
LET d tS) =1233 
L... ET d ' 6 > = 1 4 5 6 
LET i 1.1) =1650 
LET i <25=1613 
LET i >' 3 1 -1609 
LET i(4)=1670 
LET i <55=1895 
LET i(6)=2340 
NEXT a 
D IM C $ (6 ,, 3 5 

REM c $ 1-6 ma x 3 caratteri 
LET C $ ( 15 =•• 77" 

LET c $ <25 =" 78" 

LET C$(3)=" 79" 

LET C $ (4) =*• 30" 

LET C$(5)=” 31" 

LET C$<6)=" 82" 

REM _ 

> R E M MsraSEiiafcl'i'il'iìKM 

IF LEM a$>64 THEN LET a$=a$ 
O 6 4 5 

PRINT RT ©.0; IM U ERSE 1 ; 3 $ 

INK 7: PRINT RT 19,3,"0" 
PRINT RT 4,4 -L E N STR$ r;r 
PRINT RT 9.4-LEN STRì (r/3* 
f 3 + 2 ) 

P R I NT RT 14.,4-LE N 5T R $ ir X 3 

/ 3 5 

INK 3 

FOR a =1 T O 6 

IF d <a 5 <0 GR d <aJ >r THEN GO 
9000 

IF ila) <0 OR i(a) >r THEN GG 
2000 
NEXT a 

FOR a =4 TG 29 3TEF' 5 

PR INT RT 2 1 a C $ i ( a + 1 ) /5 ) 

NEXT a 

INK 1: PAPER 6 

FOR X =48 TO 240 STEP 40 

LET k= (x— S) /40 

LET y=23 +d <k) x <r/1205 

LET I. =23 +d < k + 1 ) X f r x 120 5 

PL.OT x , M : DRhI.-J 3'=* i L — y 

NEXT X 

F OR X =43 TO 243 
FOR y =24 TO 143 

IF POINT <X,y)=1 THEN GO TO 

PL OT x . y 
NEXT y 
NEXT X 

INK 0: PARER 6 

Figura 43 (continua) 
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"74-0 

FOR X 

= 4-8 TO £4-0 

STEP 

40 

75© 

LET K 

= {x — 8 ) X 4- © 



76© 

LET y 

= 23 + i (IO / (r 

/120) 


770 

LET l 

= £3 + i (fc+1) X 

( r xl 2 

0) 

780 

PLOT 

X .i y : DRflU 39,1. -y 


790 

NEXT 

X 



800 

FOR X 

=48 TO 248 



81© 

FOR y 

=143 TO 24 

STEP 

-1 

820 

IF POINT (X,y)=1 

THEN 

GO TO 

85© 

83© 

PLOT 

x , y 



84-0 

NEXT 

y 



850 

NEXT 

X 



999 

INK 7 

PAPER 0 




STOP 





PRINT 

PT 5,5; "H 

URLO R 

I E P R 

* 





Figura 43 
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NEW YORK 


‘New York' (Figura 45) disegna sullo schermo il panorama di una città con due fi¬ 
le di grattacieli. Ogni volta che si fà girare, il programma crea un panorama diverso 
e casuale; un esempio è in Figura 46. 


1© 

2 © 

99 

10 © 

102 

104 

10 © 

103 

110 

12 © 

130 

14-0 

150 

160 


REM 


REM -- 

6GRDER ©: PAPER 0: CLS 
F0R a =1 TO 2© 

INK 6+INT (RND*S) 

PLOT RND*255,75+RND*l©0 
NEXT a 
LET K. =4. 

DIM i. (15) 

DIM h ( 15 3 
DIM i t153 
FOR a =1 TO 15 

LET l (a 3 = (2 + INT (RND*2) 3 *8 
LET h (a) = (K+INT iRND* (£ + K) 


3 


3 *S + INT CRND*K3 -1 


Figura 45 (continua) 
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170 

LET 

i 

(a :• =2 + 1 NT 

(RND *6 

) 

180 

NEXT 


a 



190 

LET 

X 

= 0 



£00 

FOR 

■=J 

=1 TO 15 



£10 

LET 

X 

= x + l ( a ) 


1000 

£20 

IF X 


£56 THEN 

GO SUB 

230 

IF X 


£55 THEN 

GO TO £50 

£4.0 

NEXT 


a 



£50 

LET 

1 . 

( a ' = i=! 5 5> - •. 

X - t. ( a J ) 


260 

LET 


—. ’“i cr c 



£70 

G O S 

ij 

B"l000 



£60 

INK 

"7 




£90 

IF K. 

— 

1 THEN GO 

T O 3 £ 0 


300 

LET 

K 

= 1 




310 G O T O 110 
3£0 STOP 
1000 IWK i (a) 

10 10 FOR y =0 TO h O) STEP £ 


1020 

PLOT 

X - 1. 

( a ) 

, y : 

D R fi U 

i. ( a ) -1 , 

0 

1030 

104-0 

NEXT 

PLOT 

y 

X - L 

< a ) 

0 : 

DRRU 

0 ,i h ( a ) — 

1 

1050 

PLOT 

X - 1 

, 0 ; 

ORPU 0,h 

( a ) - 1 


1111 RETURN 

Figura 45 
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BIG BANG 


‘Big Bang’ (o ‘Grande Scoppio') è chiamata la teoria, oggi ritenuta più probabile, 
sulla nascita dell’universo. Il programma di Figura 47 ne da un’immagine simulata. 


10 

REM 

■=»<«*■ =lslgl— 


2 0 

REM 


— 


100 

BORDER 0: PAPER 

0 : 

INK 2 

110 

FGR 

a = 0 T G 3 6 0 

3TEP 

ci 

120 

LET 

Y. =5 + 10 *RNO 



130 

LET 

rd=PI/I80*a 



14-0 

PLOT 

123+ fc *CGS 

r d .. 3 

Cì + K. O 

o 

150 

LET 

h =30+4O,*RND 



160 

D R R LI 

hi C- O 3 " d . hi 

*SI N 

rd 

170 

NEXT 

' d 



130 

INK 





Figura 47 


DISEGNO LINEE 

Un disegno molto bello in quattro colori è creato dal programma di Figura 48. 


10 

■ !!■ Il 1 II II 

LIME” ■ 


20 

REM- 


— 

SS 

BORDER 0: PAPER 

0 : INK 7 


99 

CLS 



100 

FGR a = 4- 0 T G 120 

STEP S 


110 

PLOT a t SS : DRflU 

12 7 - a a - 

3 3 

120 

NEXT a 



130 

FGR a=215 TO 135 

STEP -S 


13 3 
140 
— a 
150 

INK 4 

PLOT a, SS: DRflU 

— il a —128 .1 

•“l •“« 

NEXT a 



160 

FOR a =4-0 TG 120 

STEP S 


166 

170 

) 

130 

INK 2: BRIGHT 1 

P L UT a .i 3 "7 \ D R H U 

12 7 - d .» — i. 

a — 3 

NEXT a 




1SS -BRIGHT O 

190 FOR a=215 TG 135 5TEP -8 

199 INK 6 

200 PLOT a ,87: DRflU - (3-12 S J . - t 
222-a1 

210 NEXT a 
222 INK 7 


Figura 48 
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ALVEARE (Figura 49) 


10 rem ■si«MMaa.=«i 

20 REM - 

99 B.ORDER 0 : PAPER O : INK 6 : C 

LS 


100 

LET f=10: LET 

n 1. 

— F. 

1 10 

F G R y =16 4- T O 0 

!“i 

TER - 3 0 

120 

FOR X =9 TO 24-0 

e 

TER 18 

14-0 

GO SUB 4-O10 



150 

NEXT X NEXT y 



16 0 

FOR h =15 4- TO 3 

0 

STEP -30 

170 

FOR a = 0 TO 255 



ISO 

IF POINT Ca,h) 

= 1 

THEN PLOT 

a , h : 

D R fi U 0,-9 



190 

NEXT a 



200 

NEXT h 



8 8 8 

STOP 



4-010 

LET C X = X : LET 

e y 

= y + r 

4-02© 

4-03O 

L ) 

4-04-0 

PLOT ex , cy 

POR p =90 TO 4-5 

1 

ST E P ( 36 0 / n 

LET j=PI/180*P 



4-050 

LET hx=r*GOS j 

+ X 


4-06>0 

LET hy=f*SIN j 

+y 


4.070 

PLOT CX.cy 



4-080 

O R fl U h X - e x , h y - 

e y 


4-090 

LET e X = h x : LET 

e 

y =h y 

4-1O0 

NEXT p: RETURN 



Figura 49 


PI RAM I DE (Figura 50) 


10 REM ■=»<aT:1BH«3=M 

20 REM - 

99 BORDER 0: PAPER 0: INK 6: C 

LS 

100 LET x =12 2 

110 LET K=1 

120 FOR y = 15 4- TD 0 STEP -5 

130 FOR n =s 1 1 _ 0 fc 

14-0 PLOT X + ( n - 1 *8 . m : ORAU 7 , 0 : 

DRAU 0,-4.: DRAU -7,0: DRAU 0,4- 

ISO NEXT n 
160 LET x =x - 4. 

170 LET K=K+1 

1S0 NEXT y 


Figura 50 
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CIELO STELLATO 

‘Cielo Stellato’ (Figura 51) disegna anche i pianeti Marte, Giove e Saturno. 


i0 rem 

20 REM - 

100 BORDER O: PRPER 0: CLS 
110 DfiTfi 0,0,0,16,0,0,0,0,12©,O 
.0,0,1,0.0,0,0,0.1 6,40,1 €>",0,0,0 
120 DATA 192,134,60,92,108,50,6 
,0.SO,93.255,131.255.199,125,60. 
0,0,56,124- , 116,124,56 , O 

130 LET u=PEEK 23675+256*REEK 2 
■3 6 7 6 

14 0 POR a = U T 0 ij + 4 7 

150 READ d: R0K E a,d: NEXT a 

16 0 F O R 1=0 TO 21 

170 POR c=0 T O 3 1 

130 LET X — IN i ( RNO *30 .< 

190 LET i = 2 + INT (RND*6) 

20O PRINT AT l. , c;CHR$ 123 


21© 

IP 

’y' 

—6 OR X =7 THEN PR 

I NT PT 

,. C , 

INK 

i,CHR$ 144 


2 2 0 

IF 

X 

=6 THEN PRINT RT 

1. , c ; I 

N K _ i ; 

CHRS 

145 


2 3 0 

IF 

X 

=9 THEN PRINT PT 

1. , c I 

NK i 

CHRÉ 

146 


24 0 

IF 

1. 

=6 AND C=25 THEN 

PRINT 

RT L . 

C • 

INK 6:CHRS 147 


250 

IF 

1. 

= 9 AND •: = 13 THEN 

PRINT 

RT 1. , 

C J 

T 

NK 5;CHR$ 143 


260 

IF 

l 

=16 AND C=12 THEN 

PRINT 

PT !.. 

i c 

; 

INK 2;CHR$ 149 


2 7 0 

NE 

XT 

C : NEXT 1. 



Figura 51 
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MONTAGNE 

Ogni volta che si fà girare, il programma 'Montagne' (Figura 52) crea un panora¬ 
ma diverso e casuale. 


10 

REM 

wm ii i il 11 mi 


20 

REM 



100 

■= 

BQRDER O: PAPER 

1 : INK 4- : C 

110 

DIM 

h <20) 


120 

DIM 

L <20:i 


130 

FOR 

a = 1 TO 20 


14-0 

LET 

L ( a ) =12 + INT 

( RND+30 ) 

150 

LET 

h (a ) =10 +INT 

•. RND +50 } 

160 

NEXT 

•a 


170 

LET 

X =0 : LET y =h 

< 1 ) 

180 

P L OT 

x , y 


190 

FOR 

a = 2 T O 20 


200 

LET 

x = x + L < a ) 


210 

IF X 

<256 THEN DRP U 1. (a) ,h < a 


:• -y 

220 XF X >255 THEN GO TO 250 
230 LET y =h (a) 

2 4-0 NEXT a 

250 DRRU 255 - < x - L '( a),) , h < a ) -y 
260 FOR a =0 TO 255 
270 FOR n = 0 TO 175 

280 IF POINT (a., n)=l THEN GO TO 
310 

290 PLOT a , n 
300 NEXT n 
333 NEXT a 

Figura 52 
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BANDIERA REGNO UNITO 

Quello di Figura 53 è il primo di tre programmi che disegnano delle bandiere, a 
colori e molto vicine alle vere. Della prima viene anche dato il risultato finale (Figu¬ 
ra 54). 


10 

REM ■ 

Bandiera REuN u UNITu | 

20 

REM -- 



100 

BORDER 

0: PAPER 0: INK 

7 : C 

120 

F O R a = 

1 T O 6-40 


130 

PRINT 

; PAPER 7; " " ; 


14© 

NEXT a 

PRINT 


ISO 

PAPER 

7 : INK 2 


160 

FOR 1 = 

0 T O *19 


170 

2.; 

PRINT 

limi 

AT 1,14; PAPER 7 

; INK 

180 

NEXT 1. 



190 

F O R C = 

0 T O 31 


200 

PRINT 

AT 9.c ; 


2 1,0 

PRINT 

AT 10 , c ; 

AT il.-:; 


22 0 

PRINT 


230 

24© 

250 

NEXT c 
PRINT 

F 0 R x = 

AT 11 , 14 : “HHr" 

0 T O 10 3 


260 

PL0T X 

, 1 7 5 - X *0.6: ORA I...I 

0 , -9 

270 

NEXT X 


280 

PRINT 

AT 8,11;" 


290 

F OR y = 

76 TO 25 5TEP -1 


300 

PLOT 148 + ( 76 -'-i :t * 1 . SO , ’-l 

ORA 

14 . 

0 


3 10 

NEXT M 



320 

FOR X = 

24 2 T O 255 


■- 1 ci! e! 

PLOT X 

,24: ORALI 255 -X , 

__ jSIj 

3 2 4 

NEXT x 



3 3 0 

F Q R x ” 

15 TO 103 


34 0 

PLOT X 

, 16+ < X -15) *0.68: 

ORALI 

-14 , 

0 


350 

NEXT x 



36 0 

FOR X = 

148 TÙ 241 


37 0 

PLOT X 

, 112+ < X —148) * . 6 8 

: ORA 

14 , 

0 


3 § 0 

NEXT X 



390 

INK 1 



400 

FOR '4 = 

112 TO 155 


410 

P L OT 0 

i M : ORA i-.i 7 2 — < m - 2 

12 > * I. 

65,0 


42© 

NEXT y 



430 

F O R *4 ss 

112’ TO 164 


440 

PLOT 2 

55 , y : ORAI.-) - i 164 

- y ) * 1 

5.0 
450 

NEXT '4 



4 60 

F O R y = 

76 TO 26 STEP -1 



Figura 53 (continua) 


55 





4-70 

PLOT 0 , y : DRflW ?2- 1 ?6-'J J 

* 1 . 

4-5,0 

4-60 

NEXT u 


450 

FOP. y =76 TO 34 STEP -1 


500 

PLOT 255 , y: DRfiU -(y-34) 

*1 . 

3,0 

510 

NEXT y 


52© 

FOP X =16 TO 103 


530 

PLOT X , 175 : DRfiU O , - £X -1 

Si * 

0 , 6 

540 

NEXT X 


55 0 

FOP X =23 3 TO 143 STEP -1 


560 

PLOT X .16. DRfiU O. (233 -X 

i *0 


5 70 

NEXT X 


530 

FOP X =£9 TO 103 


590 

PLOT x , 16 : DRfiU 0 , ( v -291 

■*0 . 


60© 

NEXT X 


610 

FOP X =££5 TO 143 STEP -1 


520 

PLOT x. 175 : DRhU 0 , — (2?25 

— X ) 

*0 . 67 



630 NEXT x 


Figura 53 



Figura 54 
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BANDIERA STATI UNITI (Figura 55) 


10 REM 

SO REM - 

ÌOO eORDER O: PAPER O: INK 7: C 
LS 

HO LET u=PEEK 23675+S56*PEEK 2 


3676 


120 

DATA 

16 

, 16,186 , 

, 124,56,4© 

, 0 





130 

FOR a 

= u 

T O u + 7 


140 

READ 

d : 

POKE a, 

. d : NEXT a 





66 


170 LET C$ = " 

": REM 32 spazi 
180 FOR I. =0 TO 17 STEP 3 
ISO PRINT RT 1,0; PAPER 7: INK 
2 ; ai 


200 RRINT flT L+1,0; PAPER 7; IN 

K 2; b$ 

210 PRINT AT l. +2,0PAPER 7 ; c $ 

220 NEXT I. 

230 PRINT AT 18,0; PAPER 7; INK 

2 ; a $ 

24.0 PRINT AT 19,0, INK 2;b$ 

250 LET p$ = “ +CHR$ 144+" "+CMR 

$ 144 + “ 1 ' +CHR $ 144 + + “ "+CHR$ 144 

+" "+CHR$ 144+“ "+CHR$ 144+“ “ 

260 LET ..i$ = “ "+P$<1 TO 11)+" “ 

270 PRINT AT 0,©; PAPER 1;“ 

“. REM 13 spazi 
280 FOR 1=1 TO IO STEP 2 
290 PRINT AT L,O; PAPER 1; INK 

7 ; P $ 

300 IF l. <9 THEN PRINT AT I. +1 , O ; 
PAPER 1; INK 7.j $ 

31© NEXT I. 

32© PRINT AT 10.0; PAPER 1: INK 


Figura 55 
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BANDIERA GIAPPONESE (Figura 56) 


10 REM 


100 

H t ri - 

BORDER O 

PAPER 

1 10 

POR a 

= 1 

TO 64-0 

120 

PR INT 

PAPER 7, " 

13 0 

NEXT 

a : 

PRINT 

14.0 

PR INT 

AT 

5,14. ; " 

150 

PR INT 

PT 

6,12; " 

160 

PR INT 

AT 

7,12; " 

170 

PR INT 

PT 

3.11;" 

180 

PRINT 

PT 

9,11, " 

190 

PR INT 

PT 

10,11; 

200 

PRINT 

PT 

ll.li; 

210 

PRINT 

PT 

12,12 ; 

22 0 

PRINT 

PT 

13,12 ; 

230 

PRINT 

PT 

14,14.; 

24-0 

POR r 

= 4.3 

T O 3 3 

250 

C IRCLE 12 8,9 8 , r 

260 

IF r < 

4- 6 

THEN CI 

270 

NEXT 

f 



0 


INK 2: 



STEP -0.2 
IRCLE 127,95 


Figura 56 
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PROGRAMMI VARI 


FISICA DEI REATTORI NUCLEARI 

Il programma (Figura 57) simula il processo di ‘Fissione Nucleare’ che è alla ba¬ 
se del funzionamento appunto delle centrali nucleari che producono energia. La Fis¬ 
sione Nucleare è una reazione provocata da neutroni veloci che colpiscono degli a- 
tomi di Uranio 235 i quali si spaccano producendo due atomi più piccoli di Bario e 
Krypto ed altri due neutroni che colpendo a loro volta degli atomi di Uranio provoca¬ 
no la cosiddetta ‘reazione a catena’. La reazione produce anche energia che viene 
sfruttata per produrre elettricità e calore. La Figura 58 mostra una fase intermedia 
della reazione di fissione. In questo programma è molto importante inserire bene gli 
spazi nelle varie stringhe. 


30 REM - 

100 BORDER 0: PAPER 0: IMK 7: C 
LS 

110 DATA 0, 0 ,0 , 2 4- , 2 4 , 0 , 0 , O , 0 , 2 4- 
,i 60 ,i 126,126.60.24- .0.60.126.255.2 
55,255,255,126,60 
120 LET U = P E E K 23675+256*REEK 2 
3 6*7 6 

13 0 F OR 3 = U TO U + 2 • 

14-0 READ C : PQKE a , C : NE-XT 3 


150 

FRI NT 



3 ISlMSMsi’Jlglsi ' 1 



160 

FRI NT 

RT 2,20.; INK 6 

; CHR $ 

1 

4-4. ; 

INK 7;" 

N e u t. r o ne" 



170 

PRINT 

RT 4,20.; INK 4 

; CHR$ 

1 

4-6 : 

INK 7 ; " 

Uranio 235" 



160 

P R I NT 

RT 6,20, INK 5 

; C H R $ 

1 

4 5 ; 

INK 7 ; “ 

B a fi O 139" 



190 

.PRINT 

RT 6,20; INK 2 

; CHR $ 

1 

45 

INK 7; " 

_Kr y p to 97" 



200 

INK 6: 

PRINT RT 2,15 

.; CHR$ 

1 

44 : 

INK 4: 

PRINT RT 6.15: 

CHR $ 

14 

6AT 

14,7 C 

HR $ 146, RT 14, 

23,CHR$ 

146 

RT 13 , 

3; CHR$ 146; RT 

13,1 1 

; C 

HR$ 

146 ; RT 

18,19;CHR$ 146 

; RT 1 

=; , 

27 CHR $ 146 





Figura 57 (continua) 
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210 LET a$=CHR$ 16+CHR$ 5+CHR$ 
145 +CHR$ 12S+CHR $ 16+CHR* 2+CHRS 

14-5 

220 LET n $=CHR$ lò+CHR$ 6 + +CHR$ 
144 

230 LET b $ = “ 

" : RE M 3 2 spazi 
2 40 PR INT RT 3 , O ; INK 3 "Pre m e r 

£ IMSSSMS" 


250 

INPUT LINE 


,, 260 

PRINT RT 

3 , O,; ” 


270 

FOR 1. =3 T 

O 6 


27 7 
280 

PAUSE 1 
PRINT RT 

1-1,15;" ' ’ RT 

i. , 15 

.; n a 

290 

30© 

NEXT L 
PRINT RT 

6 , i 4 , a $ 


310 

B E E P O.l, 

-IO 


320 

FOR l. =1 T 

O 7 


330 

PRINT RT 

i. +6 ■ 15- i. ; n $ : RT 

i. +6 

, 15 + 

L n $ : P R U 5 

E 1: PRINT RT 

i. +6 , 

15 - l. 

; “ " RT L +6 , 15 + L■' " 


340 
3 5 O 

NEXT 1. 
PRINT RT 

14 6 a $ RT 14 

2 2 , a 

$ 

3 6 O 

BEEP O.l, 

- 1 0 


37© 

P RINT RT 

15 , 6 : n $ " ' 1 ; n $ 

et ' ’ |“'i et 


380 

PAUSE 1:“ 

PRINT' AI 15,0.; 

bl 

390 

PRINT RT 

1S . 5 : n $ : 11 " : 

ni; 

4 O O 

" . r, 

PAUSE 1: 

* . ‘ . n 4. 

P R IN T R t 16 , O 

ta 

4 10 

PRINT RT 

17,4 ; n a ; 1 ' 

; n 1 

.; " 

; r i 



420 

P R Li 3 E 1 

PP TNT RT 17.0 ; 

b a 

430 

PRINT RT 

18,3 ; ri i . ' ' 

n a“ 

.i I i 

a.; " ••r. a 


440 

450 

PAUSE 1 
PRINT RT 

16,2 , a $ ' 1 

, a a 

' ' 

" a a ; 

• ; a a 


4 60 

BEEP O.l, 

- 1 0 _ 


470 

P RINT RT 

1 y i;f " “ ■ n a 

. . 

i i 

ri $ : : n “ 

: ; , r, a. ; 

1 n $ 


" r; a " 

' "r; s 


480 

PAUSE 1. 

PRIUT RT 19.0: 

b $ 

490 

PRINT RT 

2 O , 1n $ , " 

ni, " 

1 * 

; n $ ; " • ' ; 

R a ; " ^ _ ■■.; n a, ■■ 

.; 

n $" 

; fi a ; 

i r. £ 


50O 

PAUSE 1 • 

PPINT RT 20,0.; 

t.a 

510 

PRINT RT 

21.0 ; n a ; : 

: : ; n a 

• i i ti 

; n $ ; 

" ; r: a j " n a.; " 


" n $ 

; *' “ ; n $ ; •• 

: “ $ 


,520 

PAUSE 1 : 

PRINT RT 21,0, 

b$ 


Figura 57 
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«_Krvpt« 



Figura 58 
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LETTURA VELOCE 


È possibile esercitarsi a riconoscere più velocemente parole e frasi, in modo da 
riuscire a leggere più rapidamente quando occorre, usando il programma di Figura 
59. Per usare il programma si devono innanzitutto inserire le parole o le frasi (dalla 
cui lunghezza dipende anche il grado di difficoltà) in una serie di istruzioni DATA a 
partire dalla linea 1001. Ogni linea deve contenere una sola frase di massimo 32 ca¬ 
ratteri e/o spazi, segni, numeri, ecc. 

Le frasi non devono contenere delle keyword ma solo i caratteri con codice da 
32 a 126 (vedere appendice A del manuale Spectrum); inoltre le linee devono esse¬ 
re numerate di seguito (1001, 1002, 1003, ecc.) senza saltarne nessuna e devono 
concludersi con la linea 9999 DATA che serve ai programma per contare le fra¬ 
si. Le parole o le frasi possono essere scritte in qualsiasi lingua ed il loro numero 
può essere anche di alcune centinaia ed è limitato solo dalla capacità di memoria 
dello Spectrum (lo spectrum 16K può contenere oltre 500 parole e/o frasi di 10/15 
caratteri ciscuna). 

Naturalmente è bene che la persona che sceglie ed introduce le frasi sia diversa 
da quella che deve usare il programma, e questo per evitare che il test di lettura ve¬ 
loce si trasformi in realtà in un test di memoria (nel senso di ricordare le frasi che si 
sono introdotte). 

Inserite le frasi si può far girare il programma. La prima frase viene sempre visua¬ 
lizzata per un tempo di 0.1 secondi che viene indicato in anticipo (Figura 60), quindi 
esce la frase scelta casualmente (Figura 61 ). Sparita la frase il computer chiede di 
scriverla (Figura 62), a questo punto si deve inserire la frase esattamente (rispet¬ 
tando anche gli spazi e i caratteri maiuscoli o minuscoli). 

Se la frase inserita è uguale a quella scelta dal Computer esce la scritta di Figura 
63, se invece è sbagliata esce la scritta di Figura 64. 

Inoltre ogni volta che si riconosce esattamente una frase il tempo di visualizzazio¬ 
ne della successiva viene dimezzato (fino ad un minimo di 0.02 sec.), mentre ogni 
volta che si sbaglia viene raddoppiato (fino ad un massimo di 1 sec.). 


10 

REM ■ 

LETTURA TTelTjue^^^^H 

20 

REM- 


-- 


100 

BORDER 

0 : PAPER 

0 : 

INK 6 : C 

li! 10 

L.ET b $ = 

" : REM 

01 

(0 

S P a 2 1 

120 

LET K%= 

b$+b$+b$ 



130 

PRINT 

PAPER 1 

; k. $ 


14.0 

FOR a =1 

T 0 10000 


ISO 

RESTORE 

1000+a 



160 

READ Ci 

IF c i = 1 


THEN GO 

0 1 0 0 




170 

MEXT a 




ISO 

LET n f = 

a -1 




Figura 59 (continua) 


62 



190 

D IM 

t $ (6,12) 


200 

LET 

t.$il) ="01 0.0 

2 3 S C « ' 1 

210 

LET 

t$ (2) ="02 0.04- Sec . " 

22 0 

LET 

t$(3)="05 O.l 

3 £ C • 

230 

LET 

t $ < 4- :• =" 10 0.2 

Ss C . 

24-0 

LET 

t * (53 = "£5 0 . S 

SS La" 

24-4- 

LET 

t $ (6 3 = "50 1 

S £ C a “ 

2 50 

LET 

t X = 3 


26© 

PPUS 

E 100 


270 

PRINT PT 9,0:.INK 

4- ; ! ' D u i“ a t 

Fras 

e “ j 

t $ ( t. X , 4- T O 3 


260 

PPUS 

E 30+RND*30 


2 90 

LET 

p=UPL t $ ( ♦. x , 

T O 2 3 

300 

RE STORE 1001 + 1NT 

( R N O * n f ) 

310 

RE PO 

f $ : I F LEM f 

% >32 THEN 


PAPER 1 f $ 


LET TO 32) 

320 PRINT PT 1,0.1 

iTi pùl I . P? c» 

340 PRINT PT 1.0: PAPER 

350 PRINT PT 9,0, INK 4-, 

t e L a f r a s e_ c h a a v e t s 

e p r e rn e t e ' ‘ 

360 INPUT LINE v $ 


b $ 

' c r i v 1 

l S t o 


370 

LET 

r - Q 

5: IF $ THEN 

LET 

1 = J. 

360 
NK 7, 

IF 

"Fi- 

l — Jl 

8 & S: : 

THE N PPINT P 'T 9 

[H3Sl«aSI ", b $ , b $ 

, O : 

I 

390 

IF 

r =0 

THEN PTINT RT 9 

, 0, 

I 

NK 3, 

; "Fr 

a s e 


b $ 

b$ 


4-00 

IF r = 1 

RND t v >1 

= t X - 1 


4 10 

IF r =0 

AND t ;e 

= t X + 1 


4 20 

i~ n t n 

2 6 0 

999 

REM -- 


1000 

REM 

■S3BEK1EE® 

100 1 

OPTA " 

S p e c t. r u rii * ' 

1002 

DPT P " 

12 3 P R O U R 

1003 

DPT R " 

SINCLAIR" 

1004 

D PT P " 

Frasi di 

£• c a i' 

■ a t t e r i 

' ' 

1005 

DPT R " 

i n q u a t. s i 

1006 

DPT P " 

Los P n 9 e L 

1007 

D PT P " 

GREEN" 

3 9 9 9 

DPT P " 

»": REM 


■ H E N l_ ET 
NEH LET 


t v 
t. x 


F i a s 


a t r £ n t s d u 
si i.i n 9 u a ' ' 

ine List a 


Figura 59 


D u r a t. a F r a s e s . 1 3 a c . 


Figura 60 
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u III 


GREEN 


Dur a t a Frase 0.2 


Figura 61 


i ve t e La f ras e che a v ete 
t o £ p re m e te R=<ahÉ=<ri 


Figura 62 


Frase : 


ESATTA 


Figura 63 


Frase 


Figura 64 
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CRONOMETRO 


Il Cronometro (Figura 65) permette di misurare i tempi e di visualizzarli in ore, mi¬ 
nuti, secondi e centesimi di secondo (Figura 66). 

La precisione è buona poiché il clock dello Spectrum è al quarzo con una preci¬ 
sione dichiarata dello 0.01%. 

Il Cronometro è controllato dai tasti ‘Z’ (Start), ‘C’ (Stop) e ‘X’ (Lap), il tasto ‘X’ in 
particolare fornisce i risultati intermedi e può essere premuto quante volte si vuole 
durante il cronometraggio. 

Importante: in questo programma non va inserita l’istruzione ‘BORDER’ altrimenti 
non funziona, eventualmente il colore del bordo può essere scelto prima di scrivere 
il programma con un comando diretto. 


10 

REM 

20 

REM - 

30 

REM 

o o 

REM 

4-0 

REM 

50 

REM 

' 60 

REM 

7 0 

REM - 

99 

PAPER 

100 

DATA 

, 254. . 

254- , 2 

1 10 ' 

DATA 

3,120 

,92,1 

, 254- , 

251 

120 

DATA 

• 24-0 , 

0,62 , 

' 130 ' 

DATA ' 

, 3,35 

, 126 , 

14-0 

LET U 


■Mawawgiaiaa— 


funzione t. asto 


START 

LAP 

STOP 


0: INK 7: GLS 

33,120,92,0,62,254,2 
53,32,247 


54- , 

0 ■ 3 

c* 

W ,1 

54,©,35, 

54 , © 

, 0 , 

91, 

0 , 

62,254,2 

19,2 

40 , 

.i csI 

54 

, 247,40 , 

9,0, 

1 , 2 

. 2 4- 

, 4 

, 0,62,0 


2 , © 
2 , 2 

.■ 3 

0 1 

12 

F, -> ,-5 ; <= 

, 126 

= P E E K 

23 

675+256* 

PEEK 


19 



3676 

ISO FOR a = U TO Li +64- 

ISO READ d; POKE a,d: NEXT a 

166 C L S 

170 PRINT AT 0,11; INK 4;"hr mi 

' 160 ^ PR INT AT 6 , © INK 6 , "La S t i : 
@=START H=LAP H=STOP" 

190 LET K. =USR U 
20© GO SUB 3O0 

210 • IF PEEK 23296 = 1 THE M LET K = 

U S R ( u +20 ') 

215 XF PEEK 23296 = 1 THE N GO TO 

2 00 

220 G O S UB 300 

230 PR INT AT S , 2" P r e ni e r e fajgiiialg 
Pe r c ontinua re " 


Figura 65 (continua) 
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24 0 

INPUT 

e $ 


25 0 

PRINT 

RT 8 , 2 ; *' 


2 9 9 

•3 Q T 0 

" REM 23 £ P a 

16 b 

Z i 

300 

PR INT 

RT 2 , 10 ; “ 00 : 00 : 

00 

00 " 
310 

LET t 

-6553 6 +PEE K, 23299+2 

56 

REE K 

2 3 2 9 8 + P E E K 2 329 7 


32 © 

LET h 

=INT (t/ 130000 ) 



330 
34.0 
350 
360 
370 
3 8 0 

3 9 0 
400 

4 IO 


LET 

L..ET 

LET 

LET 

LET 

LET 

LET 

LET 

LET 


t=t-h *130000 
rii = I NT ( t. / 3 000 jf 
t = t - rii * 3 O 0 0 
£=INT (t/ 50 ) 

< t. -S +501 *2 


h $ = STR $ 


rii JrSTRS 
S$=STR$ s 

C$= 5 TR$ •: 


4 20 

PRINT 

RT 

•~i 

13-LEN 

h $ h $ 

430 

PRINT 

RT 

£ i 

17-LEN 

m $ : rn $ 

440 

PRINT 

RT 

o 

2 1 - L E N 

s- $ ; :=• $ 

4 50 

PRINT 

RT 

2 

22 ; c $ 

499 

RETURN 





Figura 65 


h r rii i n s e c 
00 : 01 : 25.44 


tasti: @=START 83 = LAP @ = STOR 


P r e rn e r e 


ENTER 


P e r 


c o n t i n ij are 


Figura 66 
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SCRITTE ROTANTI 


Una delle applicazioni del programma 'Scritte Rotanti’ (Figura 67) può essere nel¬ 
la pubblicità e nell’informazione in genere. 

Dopo avere premuto RUN e ENTER si inserisce prima la frase (anche di molti ca¬ 
ratteri) e poi la velocità di rotazione, dopodiché i caratteri, i numeri, ecc. della frase 
inserita inizieranno a ruotare da destra a sinistra. 

Le Figure 68 e 69, 70 e 71, mostrano due esempi di scritte rotanti ciascuno dei 
quali visto in due differenti momenti; comunque il modo migliore per rendersi conto 
del funzionamento è quello di provare il programma in pratica. 

Se si vuole rendere stabile la frase in modo da registrarla su nastro insieme al 
programma si può sostituire la linea 110 INPUT a$ con la linea 110 LET a$=“frase” 
inoltre se nella frase si vogliono inserire anche dei caratteri speciali (Figura 72) si 
può inserire la relativa routine per caricarli in memoria tra la linea 1115 e la linea 
2221. 

Infine inserendo nel programma le linee di Figura 73 si può fermare la rotazione 
della frase ogni volta che si preme il tasto ‘p’ e fino a che non si preme ENTER. 


10 
20 
99 
100 
110 
mere 
120 
130 
( a ) > 
14.0 
150 


rem ■=««** m 

REM --- 

GO SUB 1111 

BORDER 0: PRPER 0: CLS 
INPUT "Inserire frase e p r e 
i=*airfaa " , , . line a$ 

FOR a =1 T O LEN 3$ 

IF CODE 3$Cai <32 OR CODE a$ 
164- THEN LET a $ < a ) = " ” 

NEXT a 

INPUT " In s e r i re velo c ita' (. 


1 - - 

10 1 e 

p r e m e 

f £ 

" j t : 

IF 

t < 1 OR 

t >10 THEN GO 

TO 

ISO 

ISO 

FOR a = 

3 TO 7 

* 



ITO 

PRINT 

RT a , O 

PRPER 1 

•' . 

REM 

32 spa 

Z i 




1S0 

NEXT a 





190 

IF LEN 

*3 $ < 

THEN 

D IM 

h $ '! 3 2 

-LEN 

195 

) • 

200 

a $ +1 0 ) 
IF LEN 

a $ > 31 

THEN 

D IM 

h $ (10 

LET b$ 

— a $ + h $ 




210 

LET C $ 

= b $ 




220 

321 

PRINT 

RT 5,0 

INK 

i5c 

$ ( 1 TO 

230 

LET •: $ 

= L f$j *. ir! 

T o :■ 



24-0 
+ b $ 

IF LEN 

C $ < 3 2 

THEN 

LET 

c $ = c $ 

250 

PAUSE 

t *5 
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2 t-i 0 

i j m T G 

1111 

REM -- 

1112 

REM r 

1113 

R E M 

1114 

R E r-i - - 

£ £ £ £ 

RETURN 


£ v iì n t uà Li 

p €' C i-Sli 


Figura 67 



Figura 68 



Figura 69 


US. «.14.00 «CON. .ISSO £_2 


Figura 70 
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u'i ili r - (ù 
CU CU cu cu 


Figura 71 



Figura 72 


IF INKEY$="p" THEN 

G D T O 

22 0 

INPUT 

LINE .= $ 

G G T U 

2 5 0 


Figura 73 





CONTAPEZZI 


Un uso insolito dello Spectrum può essere quello di Contapezzi (Figura 74) capa¬ 
ce di contare da 0 a 99.999.999 pezzi. 

Facendo girare il programma, ogni volta che si preme ENTER il numero viene in¬ 
crementato di uno (Figura 75). Oltre a ciò, si può inserire anche un numero qualsia¬ 
si da aggiungere (per esempio 334925) che premendo ENTER viene sommato al nu¬ 
mero presente sullo schermo oppure sottratto, se il numero inserito è preceduto dal 
segno 

Se si cerca di sommare o di sottrarre un numero che farebbe scendere il totale 
sotto lo 0 o lo farebbe salire oltre il massimo, il programma fa uscire sul video la fra¬ 
se ‘NUMERO ERRATO O ECCESSIVO’. 


10 REM 
20 REM 
30 REM 


PAPER O 


INK 6 


ENTER 


100 BORDER O: 

LS 

11© PRINT INK 4j"Premere _ 

per l solo pezzo" 

120 PRINT 

130 PRINT INK 4." o i n t r o d u r r e 
■pezzi in piu'o in" 

14-0 PRINT 

150 P R I NT IN K 4- ; "me n o 

P r e m e r e 


c 


N 


ENTER 


1S0 


i PRINT 

AT 

10 . 

. 0 

INK 

5 

i PRINT 

■" ■■ ■ 

AT 

11 . 

, 0 

INK 

5 

i PRINT 

Hi Hi ■ " 

AT 

12 . 

• o ; 

INK 

p 


c o n — ,i e 

k III 
l"J I 

■ m • 


1 

90 

LET n = 

0 










£ 

00 

LET C = 

0 










2 

10 

INPUT 

L IN 

E 

n $ 








2 

20 

IF n $ - 

ti il 

THEN 

LET 


ri 

$ 

= 

" i 


2 

30 

IF COD 

E n 

$ < 

> 4- 

5 TH 

E 

M 

F 

OR 

a =1 

T 

O 

L E N n $ 











2 

4-0 

IF COD 

E n 

$ = 

4-5 

THE 

N 


F 

Ci 

R a 

= 2 

’ Q 

LEN ri $ 











£ 

50 

IF COD 

E n 

$ c 

a ) 

< 4- »b 

O 

R 


C 

ODE 

n $ 

«B 

1 > 

57 THEN 

G O 

T 

o 

600 







2 

6 0 

NEXT a 











2 

70 

IF ( n + 

UAL 

n 

$ :i 

> ( 1E 

•S5j 

— 

1 

;i 

OR 

( ri 

. ij 

AL 

n $ 1 •; 0 

THE 

N 

GO 

T O 

6 

0 

0 




£ 

80 

LET n = 

n + U 

AL 

n 

$ 







o 

90 

D IM b $ 

< 1 , 

9 - 

LE 

N STR 

$ 


n 

.i 


3 

00 

LET a $ 

= ST 

R* 

n 

+ b $ < 

1 

ì 





•»* 

10 

FOR p = 

1 T 

Ci 

LE 

N a $ 

— 

1 





3 

20 

LET C = 

p 2 

+ 1 

4- 
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330 

LET j = 

C O D E a 

34-0 

IF J = 3 

2 THEN 

3 5 0 

IF j >3 

2 THEN 

100 + 1000 



360 

NEXT P 



370 

GO T O 

irl 1 0 

600 

PRINT 

PT 

15 , 

O ERRATO O 

ECC 

E S S 

610 

PAUSE 

100 

69 0 

PRINT 

PT 

15 . 



1 ' 

: R 

630 

GO TO 

210 

1000 

PRINT 

PT 

10 , 

1010 

PRINT 

PT 

11 , 

1020 

PRINT 

PT 

12 , 

1030 

RETURN 


1 100 

PRINT 

PT 

10 , 

1110 

PRINT 

PT 

11 , 

1120 

PRINT 

PT 

12 •, 

1130 

RETURN 


1200 

PRINT 

PT 

10 , 

1210 

PRINT 

PT 

11 , 

1220 

PRINT 

PT 

12 , 

1230 

RETURN 


1300 

PRINT 

PT 

10 , 

1310 

PRINT 

PT 

11 . 

1320 

PRINT 

PT 

12 , 

1330 

RETURN 



14-00 

PRINT 

PT 

10 , 

14-10 

PRINT 

PT 

11 . 

14-20 

PRINT 

PT 

12 

14-30 

RETURN 



1500 

PRINT 

PT 

10 , 

1510 

PR INT 

PT 

11, 

1520 

PRINT 

PT 

12 , 

1530 

RETURN 



1600 

PRINT 

PT 

10 . 

1610 

PRINT 

PT 

1 1 , 

1620 

PRINT 

PT 

12 , 

1630 

RETURN 



1700 

PRINT 

PT 

10 , 

1710 

PRINT 

PT 

11 . 

1720 

PRINT 

PT 

12 

1730 

RETURN 



1800 

PRINT 

PT 

10 , 

1810 

PRINT 

PT 

11 , 

1820 

PRINT 

PT 

12 . 

1830 

RETURN 



1900 

PRINT 

PT 

10 , 

1910 

PRINT 

PT 

11 , 

1920 

PRINT 

PT 

12 , 

1930 

RETURN 



1997 

PRINT 

PT 

10 , 

1998 

PRINT 

PT 

11 , 

1999 

PRINT 

PT 

12 , 

2000 

RETURN 




p ) 

; O S U B 19 9 
• Q SUB (j- 


5.; INK 7; "Ni, 
IUO" 


I 

S 

3 

4 

5 
E 

B 

3 


S p a Z : 
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P r e fu ere i=4BiB=4s3 per 1 •=. o L o p •=■ z z o 
o introd u r r e N"pezzi in piu ' o i n 


1EMTERI 


N’PEZZI 53114323 

Figura 75 


SIMULATORE DI PORTE LOGICHE 

Il programma (Figura 76) simula il funzionamento delle sei porte logiche che so¬ 
no alla base di qualsiasi circuito digitale incluso i Computer. Inoltre lo stesso micro- 
processore Z80 usato dallo Spectrum ha nel suo set di istruzioni, tre instruzioni logi¬ 
che (AND, OR, XOR) il cui funzionamento è simile a quello delle corrispondenti por¬ 
te digitali. 

La scelta delle porte e la selezione di ‘1’ e ‘0’ ai due ingressi ‘A’ e ‘B' avviene pre¬ 
mendo i seguenti tasti: 


Tasto 

Funzione 

1 

Ingresso ‘A’ a ‘1’ 

2 

ingresso ‘A’ a ‘0’ 

3 

ingresso ‘B’ a ‘1’ 

4 

ingresso ‘B’ a ‘0’ 

5 

porta AND 

6 

porta NAND 

7 

porta OR 

8 

porta NOR (Figura 77) 

9 

porta EX-OR 

0 

porta EX-NOR 
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10 
2© 
33 
77 
0 0 


REM 

REM 

REM - - 
BORDER 
INK 7 


1 : PAPER O 
CLS 


9 8 

PRINT 

RT 1,1; 

INK 

2; ■ 

i" 





99 

PRINT 

RT 3,1.; 

INK 

5.; ■ 

0" 

100 

PRINT 

RT 4,9 ; 

INK 

6“ R 

, 9.; 

INK 6 

; " B " .; RT 

5,23 

: INK 

110 

LET p 

= 0 : LET 

3 =0 : 

LET 

120 

LET k 

= 0 O D E IN 

KEY £ 

-4 7 

130 

IF k > 

0 AND k 

11 THEN Gì 

*500 

140 

G O T O 

120 



333 

500 

REM - 
REM 

i=«aBiaigig 

— — — — 



4. ; " O 
b = 0 


51© 

520 

53© 
54-© 
55 0 
560 
57© 


LET p=6 
POR 1=1 TO 7: PRINT RT t.ll 

NEVT i. 

PRINT RT 1 , 13 : "la taggMa " 

PLOT 112,1Ì2 
DRRU 36,20 , P I ,-3 
DRPiU -33.2© .PI s3 
DRRU 0,-40., -PI/3 

PLOT 104,112: DRRU 0,40,PI/ 


PLOT 

PLOT 


DRRU 

DRRU 


96,14-3 
96,119 

C IRCLE 154- , 132,3 : 
DRRU 10.O 

REM - 

IP K =2 THEN LET 3=1 
H E N 


IF = 2 


560 
562 
584. 

•1 o ■ 

1000 
2500 
2505 
INK 2;"B" 
2510 IF K=3 

c=; -j_ es; jp j< — 

INK ~ 5 ••UT 
2520 IF k = 4 

2525 IF t- =4 

INK "s; 

2530 IF K=5 

2535 IF k =5 

INK 5.; 


19,0 

19,0 

PLOT 156, 


PRINT RT 


THEN 

TM|N 

THEN 
T M E N 

THEN 

THEN 


LET a 
P R I NT 


• 0 
f-r 


L. c:. ! D = X 

PRINT RT 

L ET b st 0 

PRINT RT 


, 11 


6,11. 


6,11 


260O 

G O 

T O 26 0 0+5 

0 *p 




2 650 

PRINT RT 5,2 

1, INK 




2 6 5 5 

IF 

3=1 AND b 

= 1 THEN 


PRINT 

R 

T 5 ,.2 

1 ; 

INK 2 ; 





2 6 9 9 

GO 

TO 120 





2700 

PRINT RT 5,2 

1, INK 

9 

; ■ ■ 


2710 

IF 

3=1 AND b 

= 1 "1 H E N 


P R I NT 

R 

T" cr ■”? 

i ; 

INK 5: "B 1 ' 





2720“ 

G O 

T 0 12 0 





2 7 50 

PRINT RT 5,2 

1.; IN hi. 

9 

. u 
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£760 

IF -3=0 AND b 

=0 THEN 

PRINT R 

T S , 

21: INK 5 ; "■" 



£770 

G O T G 12 0 



2800 

PRINT RT 5,2: 

LINK 5 

. .. a .. 

2310 

IF a =0 RND b- 

=0 THEN 

PRINT R 

T 5 , 

21.; INK 2.; 



2820 

GO TO 120 



2850 

PRINT RT 5.2: 

L; INK £ 

; "■•• 

2860 

IF a = b THEN F 

3 RINT RT 

5 .i £ 1.1 

INK 




2870 

GO TO 120 



2200 

PRINT RT 5.2 

1; INK 5 

; "■" 

2210 

IF a = b THEN F 

3 RINT RT 

5,21 

INK 

2; "■" 



2222 

GO TO 120 



3000 

rem ragia 



3010 

FOR t. =1 TO 7 

PRINT 

RT I. , 11 

> 

" : NEXT l. 


3015 

print rt i, 13; ••ragra- 


3020 

LET p =1 



3022 

PLOT 104,143 

DRRU - 

2 , 0 

3024 

PLOT 104.112 

DRRU - 

2 , 0 

3 026 

PLOT 168,131 

DRRU - 

16,0 

303O 

PLOT 104,112 

DRRU 0 

. 38 : DR 

RU 2 

3,0: DRRU 0,-33,-PI: 

DRRU -2 

•8 0 





i-ìO T O 1000 



3500 

rem laraaia 



3510 

LET p=2 



3515 

FOR 1. =1 TO 7 

PRINT 

RT l. , 11 

; 1 ' 

" : NEXT i. 


3520 

PRINT RT 1,13 ; latiaia 


3530 

PLOT 104.143 

DRRU - 

2 , 0 

3540 

PLOT 104,112 

DRRU - 

2 , 0 

3550 

PLOT 168,131 

DRRU - 

10,0 

3560 

PLOT 104,112 

DRRU 0 

.38: DR 

RU 2 

3,0: DRRU O , -38,-PI 

DRRU -2 

8,0: 

C IRCLE 155 , 1:; 

3 1 , 3 


3566 

GO TO 1000 



4000 

REM 



4010 

LET p=3 



4020 

FOR 1=1 TO 7 

PRINT 

RT I. , 11 

« • 

“ : NEXT L 


4030 

PRINT RT 1, 13, "Sia" 


4040 

PLOT 112,112 



4050 

DRRU 3 8,20, PI,'3 


4060 

DRRU —38 , 20 , F 

3 I 3 


407 0 

DRRU 0,-40, -F 

=‘ I /' 3 


4080 

PLOT 26,143: 

D R R U 12 

, 0 

4082 

PLOT 26,112: 

DRRU 12 

, 0 

4084 

PLOT 151,132 

DRRU 16,0 

4022 

G O T O 1000 



4500 

rem fargia 



451© 

L ET p = 4 



4520 

FOR 1. =1 TO 7 

PRINT 

RT 1. , 11 


" : NEXT t. 
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158 


4-530 

PRINT 

RT 1.13: "IBMd" 


4-54-0 

PLOT 

112 112 



4-55© 

D R fi LI 

38 , 20 ,, PI/3 



4560 

D R fi U 

-38,20,PI/3 



4-570 

DRRU 

0 , -4-0 , -P I / 3 



4-580 

PLOT 

96,143: DRfiU 

19 , 

0 

4-582 

PLOT 

96.119: DRfiU 

19 , 

0 

4-584- 

CIRCLE 154-, 132,3: 

PLOT 

132 : 

DRfiU 

10,0 



4-599 

GO TO 

1000 



500© 

REM 

i-AiysiJ 



5010 

LET p 

= 5 



5©20 

POR 1. 

=1 TO 7: PRINT RT 

il 


NEXTl 



503© 

PRINT 

OT 1 i 13 » ' ' 1^8 

ms“ 


504-0 

PLOT 

112,1Ì2 



5©5© 

DRfiU 

38 , 20,PI /3 



5060 

DRfiU 

-38.20.PI/3 



507© 

DRRU 

0 , -4-0 , -P I / 3 



5072 

PLOT 

104- ,112: DRfiU 

©, 

4-0 

0 

508© 

PLOT 

96 . 14-3 : DRfiU 

19 . 

0 

5082 

PLOT 

96,119: DRfiU 
151,132 : DRfiU 

19 , 

0 

5084- 

PLOT 

16 

, 0 

5SS5 

GO TO 

1000 




Figura 78 



Figura 77 
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PROGETTAZIONE DI MULTI VIBRATORE MONOSTABILE CON 555 


Una delle applicazioni più interessanti del Computer è nella progettazione di cir¬ 
cuiti elettronici. Un esempio pratico è il programma di Figura 78 che permette di 
calcolare i valori di un Multivibratore Monostabile con il timer 555. 

Durante il funzionamento il programma chiede prima il calcolo che si desidera ef¬ 
fettui (Figura 79), quindi dopo aver inserito i dati, fornisce il progetto completo (Fi¬ 
gura 80); infine premendo il tasto 'C' si può avere anche una copia su carta del cir¬ 
cuito. 

Per quanto riguarda i valori di Ra, C, t inseriti, questi possono avere la seguente 
escursione minima e massima: 


Ra da Ikfi a lOOOOkfi 
C da 0.00001 pF a lOOOpF 

t da O.OIms a lOOOOOms 


IO 

20 

30 

4.0 

99 


REM 

REM 

REM 

REM 



BORDER O: PAPER 0: INK 6: C 


LS 

100 LET U = PEEK £ 36 7 5 + £ 5 6 * P E E K £ 

3676 

110 DATA 5E' 66 13O 130 6S , 4-O ., £3 

6,0,0.0,16,16.16 , £ 6,3 £ , 6 4- 

11 £ ÒRTO 16 . £54. . 130.130.130.130 
, 130,130,130,130,130,130,130,130 
, £5 4. , 16,16,16,56,63,56,16,16,16 
1£0 FOR a = U TO Li+39 

130 READ d: POK.E a,d: NEXT a 


14-0 

PLOT 

9 5 , 136 : 

DRRU 

57,0: DRR 

0 , 

-57: DRAU -57 

, 0 : D 

R R I.-.I 0,5 7 

ISO 

PLOT 

15£ . IO© 

C-' R IH UJ sji "7 . O 

160 

P L OT 

152 , 116 

DRRU 6,0 

170 

PLOT 

124. , 79 : 

D R ft t-.l 

O , - £ 3 

160 

PLOT 

116.55 : 

DRRU 

12 . O 

190 

P L OT 

1 lo , 54- • 

DRRU 

12,0 

£00 

PLOT 

113 , 53 : 

DRRU 

1 £ , 0 

£10 

PLOT 

67 , Ì67 : 

DRRU 

O , -95 

220 

PRINT 

RT 3 . 8 

; CHR $ 

14-3 ; RT 5 . 

; CHR$ 14-6 

, RT E> 6 

, C H R $ 

14-7 , RT 7 , 

CHR$ 14-8 

J RT 9 , S 

, CHR $ 

14-8 

£30 

PLOT 

72.14-8: 

DRRU 

60.0 

£4-0 

PLOT 

"7 2 .i X X fc* : 

DRRU 

2 3 , 0 

£50 

PLOT 

72,100: 

DRRU 

2 3,0 

£60 

PLOT 

62,71: 

DRRU 

10 , 0 

£70 

PLOT 

& I=.' .• ti* © : 

DRRU 

10.0 


Figura 78 (continua) 
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260 

PLOT 

6 7 

F, "7 : 

D R R U 

0 , 

-11 

290 

PLOT 

6 1 , 

cr c; . 

D R19 U 

12 

, 0 

300 

PLOT 

6 1 . 

54. : 

DRflU 

12 

. 0 

310 

P L OT 

6 1 , 

53 : 

D RAI.) 

12 

■ 0 


320 PLOT 107,79: DRflU 0,-35 

330 PLOT 107,4.3: DRflU -12.0 

34 0 PLOT 115,136: D R Pi Lì 0.12 

350 PLU ! 132 t 1 3: DRHU 0 . j. 2 

360 PLOT 114,149: PLOT 116,149: 

PLOT 116.149: PLOT 114.147: PLO 
T 116,147 

370 INK 4: BPIGHT 1 


O 0 

P L OT 

192 

, 106 : 

DRflU 

3,0: DPR 

U 0 . 

12: DRflU 

16,0 : 

DRflU 

0,-12: D 

RAU 
39 0 

3.0 

P R X NT 

RT 

5 ,i 'd ,i 

Ra ” 


4 0 0 

PRINT 

RT 

1S , 9; 

,, c ,. 


410 

PRINT 

RT 

16.5; 

" T r i 9 

. IN " 

4 20' 

PRINT 

RT 

9,24 

"Ou t 


440 

45© 

INK 3 
PRINT 

RT 

6,25 ; 

"I • * 


460 

PRINT 

RT 

© , s ; " 

+ vj ' ' 


470 
4 3 0 

INK 5 
PRINT 

, 0 T 

11,15 

" 1" ; 

AT 11,13 

. ■ ■ g .. 

; RT 9 . 

il. i 

" 3 * ‘ ; RT 

9.12 

"6" ; RT 

7.13 
4 " 

4 9© 

"5" R' 

T “7 

, 12 ; " 7 

" RT 

5,14 ; "3 

INK 7 

: BRIGHI 

•7; 


500 

PRINT 

RT 

S , 14 ; 

"ISIKfel" 


600 

PRINT 

RT 

0 .. 13 , 

"Mu i. t 

i v i b r a t o 

f e 
700 

PRINT 

RT 

1 , 13; 

"MG n o 

stabi Le 


" 900"GO SUE 4000 


901 

PRINT 

RT 

18.0; INK 

5; "1 


m ere 

P e r 




910 

PRINT 

RT 

19,0; INK 

6; " 

i L t 

a s t o 

□ t 

d a 

R a e 



920 

PRINT 

RT 

20,0; INK 

6; " 

i 1. t 

a s t o 

fi Ra 

d a 

t e c " 



930 

PRINT 

RT 

21,0; INK. 

6 ; " 

i L t 

a s t o 

SU C 

d a 

t. e Ra" 



93 3 

PRINT 

RT 

16,20; INK 

3; 1 

"tasi 


O0 = COPV '' 

940 LET K. = CGDE INKEY $ 

944 IF K=67 OR K=99 THEN GO T0 
6666 

950 XF K >43 AND fc*52 THEN GO TO 
( K — 46 J * 1000 
96 0 G O TO 9 4 0 
1000 'GO SUB 40.00 

.] ' 0 — R 7 NT 9 1 2 0 . 0 . ” 7 n -i w i- i .' A Sìa 

1.1 n » ; C!-iR $ 14 4 ; " ' e 

p r e r,-, e r s fa i filai si 

1020 INPUT Rei - XF Ra < 1 OR Ra •> 100 
00 THEN GO TO 1090 
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1 0 3 0 3 0 ! 3 !_! £; 4 - 0 0 0 


.«I 4 .-V r“.r~,-»“ki -r- . -r- . .“k . « i -r- — 

x kj m- >c.' r n; xm ri i cw iw i j. i i ;• c. i i i c. i. 

ì O * ’ C- ri P $ 4- ? -t ' ' 7 '» *£• 


P 2 rii 

s r s 





issa 


! J-j" X f" r f** 3 


0 0 0 X 

flP 3 

1000 

Tt-tE 

N G 3 T 3 13 E 3 




1060 

G i_i 

SUB 4033 




1 0 7 0 

; p- t- 

T. “ 1 . *JL i*r R 3 # C 




1033 

G O 

!_! B 7* 7 *7 7 




1 1 1 1 

G* O 

T 3 9 3 3 




£000 

G O 

sue 4.000 




4 010 

r- r*. Un 

N ~i rii 4 O i w i ' 


n s s r i r 

£7T 

* n fri ■=. 

‘i 



tu i~; ni 

•- e iMS 

«rial si 

1 ■ 





£020 

INP 

i H" » ■ T c:- + r?» 


•3*i -i_ 

t ; 100 

330 T 

HEN 

G O T G £ 3 £ 3 




J=: 3 3 3 

L 1 ? L_* 

S U E* 4 3 3 0 




£ 3 4.3 

PR 1 

NT AT £0,0;" 

r 

-in 

f: c. c* i f 

H- C !. 

in " ; 

CHS 

£ 145 ; "Pi 



£ 

P » tj ru 

t~: i " i-j 

'^SSHajjsii 




£ 3 E 3 

T N P 

1 • J : I r G 3 

* 

uii vis *•::.» x. 

IJ Ki 1 1 ;• 

1000 

THFN C-G TO P0F0 




O '■> i“1 






1 — *-* w 






«si 0 7 0 

L.. E 1 

Pi 3 — t. X . 1 -y ì_j 

.5 



,=: 0 5 3 

i” n 

. 7 . M r-. 7 7.- • 




1 ■— 1 L— 1 1 — 1 

G O 

"j" £i O 0 0 





3 3 13 

? ? T N 7 7 ip G 

IO . 

T r» 

È* £ 

r i. r p 

t i* 

i ri rn s 



•p; 

r::» 

•=: !'?! •=: ! 

*=-' 

ìwàa 

* * 






3 3 £ 3 

INP LI 7 * . ir 

t. G 

• 0 

X 

O P t. 

!•• 100 

330 THEN GO T 3 3 

3 =' 3 





3 0 3 0 

G O S U e 4 0 0 0 






itH A ■“* 

*lU* *-l- IL* 

r-i r-i f k i t- »*“• *n~ «*:•» 

r r*. -i_ » h i r -i i «=. *w‘ 

•“:n • • • 

i W • 

*r 

U- 1 1 

£ 

r i r £ 

r*! -3 

( i n V. 

p !“• e rii 

" ;c r ; p« 144. 

S f e ;.r!t,gliaia3 

i 




i?; 

• 0 CT 0 

INPUT Ra: I 

F R a 


3 

R r a 

10 0 

33 THEN GO TC 33 

53 





3 063 

G 0 3 U B 4 0 00 






0 7 0 

L. £ "f" 0 — r. ./ !. I 

I * R 3 

.! 




3OS0 

G G ' S Ù B " 7 7 7 7 







G Q T 3 9 3 3 






4 000 

L. ET 







• 1 • 

R E M 

w 

3 

s p a z 

i 

4313 

PPINT PT Ì3 

. 3 ; .; 

$ 

RT 

x ’3 . 

3 : ,i $ 

hT £ 

3 0 j hT •=: 

1,0 , 

J $ 





4. 0 £ 0 

RETURN 




S S S S 
31 

GO SUB 4000 

: COPY 

G O 

T O 3 


LET -0 : IF 

Pi a < 1 OR 

Ra : 

- 1000 

0 ' ÒR 

C<0.00001 O 

R 0-1000 

OR 

t. 0 . 

0 1 OR 

t:-100300 T 

HEN LET > 

•: =1 



7775 XF y.~l THEN PPINT mT 14- , 19 . 

"‘JRL.GR I ERRATI" 

7773 IF X =1 THEN PAUSE 100 

7750 PPINT PT 14,19;" 

REM 13 spazi 
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77 S1 X F X =1 THEN R ETU R N 

7790 LET >;$ = •' K. "+CHR$ 14-4-. LET 
$=/' ” +CHR $ 14-5 + " F " LET Z$ = " ms 

7800 IF Rfi>=1800 THEN LET Xl=" M 

" +CHP* 14.4. 

7802 IF Ra > =1000 THEN LET Pa =Ra / 

1000 


7 8 O 8 

LET 


i 

$ 

=STR* Ra: 

IF LEN r 

% 4 

THEN 

LET 


r 

$ = 1 T C 

4.5 


7510 

IF 

t”; 


i 

THEN LET 

y $ = ” n F ” 


7 8 12 

IF 

c 


i 

THEN LET 

C=C*1000 


T 7 C< 1 £5 

LET 


c 

$ 

=STR$ C: 

IF LEN C $ 

>4 

THEN 

LET 


c 

$ 

= C$(1 T O 

4- 1 


7820 
c . " 

“» » , J—, 

< G. «=. 

0 

7827 

IF 

t 



1000 THEN 

LET Z$=" 

£• 

IF 

t 

y 

= 

1000 THEN 

LET t=t/ 

100 

LET 


t 

$ 

= 5TR$' t : 

IF LEN t $ 

> 4- 

THEN 

LET 


t $ 

= t $ « 1 TO 

4. t 



7829 PRINT RT 5,1;" ";RT 1 

2,1;" ";RT 11,22; " 

783© PRINT RT 5.5-LEN r $ r $ ; T; $ 

784-0 PRINT RT 12,5-LEN C y $ 

7850 PRINT RT 11,22;t$JZ$ 

8888 RETURN 

Figura 78 


+ U M i.i i. t. i i b r .3 t. o f >5 



Figura 79 


79 


ir* 







Figura 80 
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PROGETTAZIONE DI OSCILLATORE CON 555 


Anche un Oscillatore con il 555 può essere progettato con un apposito program¬ 
ma (Figura 81 ). L’uso è simile a quello del programma sul multivibratore monostabi¬ 
le; viene infatti prima chiesto i! tipo di calcolo che si vuole effettuare (Figura 82), 
quindi vengono inseriti i dati chiesti dal computer il quale poco dopo fornisce il cir¬ 
cuito finito (Figura 83); anche in questo caso premendo il tasto ‘C’ si può avere la 
copia su carta. 

Da notare che questo programma calcola anche il ‘duty cycle' e visualizza quindi 
la forma d’onda esatta che si avrà in uscita. I valori Ra, Rb, C, f inseriti possono ave¬ 
re la seguente escursione: 


Ra da Ikfìa lOOOOkQ 

Rb da IkQ a lOOOOkD 

C da 0.00001 pF a lOOOpF 
f da 0.01 hz a 200000hz 


10 REM | 

20 REM - 
99 BORDER 0: PAPER 0: INK 6 


C 


100 

LET u 

= P E E K 23675+256+PEEK 

Jcl 

3 © "7 S 





110 

DOT fi 

56.68,130,130.68,4-0.2 


8,0, 

0,0,18 

,18,16 

2 o . 3 2 , c> 4- 


112 

DfiTfi 

16,254- 

130,130,130 ; 13 

0 

, 130 

, 130,1 

30,13© 

130,130,130,13 

0 

, 2 5 

,16,16 

,16,56 

63,56,16,16.16 


120 

F O R a 

as l_l T O I. 1 + 3 9 


130 

R E fi D 

d : F'OKE a , d : NEXT a 


.4.0 

PLOT 

y 5 • 2. • j t* 

DRfiU 57.0; DRfi 

© , 

-57: DRfiU -57,0: PRfiU 0,57 


150 

PLOT 

152,100 : DRfil.-.l 37.0 


160 

PLOT 

152,116: DRflU 8,0 


170 

PLOT 

124- . 79 

DRfiU © . -23 


160 

PLOT 

116,55 

DRfiU 12,0 


190 

PLOT 

118,54- 

DRfiU 12,0 


200 

PLOT 

118,53 

DRfiU 12.0 


210 

PLOT 

67,167 

DRfiU 0 , -95 


22 0 

P R I NT 

fiT .3,8.; CHP$ 14.8; RT 4. 


8j CHR$ 14-6 

fiT 5 , « 

3.; CHRÈ 14.7; fiT 6 


6,; CHR$ 14-6 

.; fiT 7,8; CHR$ 14-6; fiT 8 


8 ; CHR$ 14.7 

; fiT 9.8: CHR4 14-8 : fiT 10 

.i 8 ,i C 

HR$ 14- 

& 



230 

PLOT 

7 2,14-8 

DRfi U 6 0,0 


24-0 

’ PLOT 

72,124- 

DRfiU 23.0 


250 

PLOT 

72,100 

DRfiU 23,0 


255 

PLOT 

"T* , Q2 ■ 

DRfiU 23,0 


260 

PLOT 

62,71: 

DRfiU 10,8 


270 

PLOT 

62,68 : 

DRfiU 10,0 



Figura 81 (continua) 
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280 

PLOT 6 

7,67: DRh l.-.l 0,-1 1 


290 

P L OT 6 1 , S S : D Pi fi W 12,0 


300 

PLOT 61.54-: DRflU 12 . O 


310 

PLO i 6 

1,53: DRRU 12,0 


34-0 

PLOT 1 

15.136: DRRU 0.12 


35© 

PLOT 1 

32.13 6 : DRRU O, 12 


36© 

PLOT' 114.14.9. PLOT 115, 

149 : 

PLOT 

116.149 : PLOT 114,147 : 

P L O 

t ne 




370 

INK 4 : 

BRIGHI 1 


390 

PRINT 

RT 4.9:" Ra " 


3 9 5 

P P X NT* 

RT "7.9: " R b " 


4-00 

PR IN ■ 

Ci T i O >Zi : : i”; : : 


4-29 

FRINÌ 

RT 9.24 ; "O'J t " 


4.4.0 

INK 3 



4-60 

PRINT 

H T 0 i •“* i + 


4. ? 0 

INK 5 



4-30 

PRINT 

RT 11, 15 ; " 1" ; RT 1 

0.12 

.i * ' «ri .> 

RT 9,1 

S "3" ; RT 9,12; "6" 

; RT 

"7 1 . i « = ? ; 

"5" .: RT 

5.12;"7”;RT 5,14 

: "i=i 

4." 




4-90 

INK 7 . 

BRIGHT 0 


500 

P R I NT 

RT 3,14 , "SES" 


600 

PRINT 

RT 0,13 ; "Os c i i. i. a t 

o r e 

c o n 5 

55" 



900 

G O 3 U B 

4000 


90 1 

RINT 


BìMJj 


9 10 PRIMT RT 20,0: IWK 6: " il. t 
a s t o 0 f ds Ra R b e C ' ' 


920 PRINT RT 21,0; INK 6: " ì i. t 
asto © C da f Ra e Rb" 

933 PP: IWT RT 16,20; IWK 3 ; "tast 
OÌ=COPY" 

94.0 LEI K. = CODE IWKEY $ 

94.4. IF l;=6? OR K. = 99 THEN GO TO 
66 6 6 


950 IF K >48 AND K. <51 THEN GO 
( fc. - 4 3 ) * 10 0 0 
960 GO TO 94-0 
1000 G O S U Eì 4-000 

1010 PRINT RT S0.0;"inserire f 

(in K " ; CH R* 14. 4." ) 

P f a fiì are lalgÉÉaiB 

1020 INPUT Ra : IF Ra <1 OR Ra>: 
00 THEN GO TO 1020 

1030 GO SUB 4-000 

1032 PRINT PT 20,0;"Inserire f 

(in K '‘ ; CH R|_U 4 ; 1 ' ) 

P r e rii ere tUSfilMS 

1034- INPUT Rb: IF Rb<:l OR Rb> 
00 THEN GO TO 1034- 

1036 GO SUB 4-00 0 

104-0 PRINT RT 20,0 " in s e r i r e ( 

in " : CHRi 14-5 ; "F> 

P r e rn r; r e uagiaaia 


1 OR 


In aa r 


r e C 


Figura 81 (continua) 


82 





1050 

INPUT 

C : IF 

C 0 


0 0001 OR C 

1000 

THEN G 

O i o 

1050 



1060 

G O S U E : 

4 000 




1070 

00 

LET f = 

1.44 

< « R a 

+ 

2 * R b ìC) *10 

1080 

GO SUB 

7 7 77 




1111 

G O T O 

cj C5 O 




2000 

GO SUB 

”4000 




2010 

PRI NT 

RT 2 0 

, 0 " 

T 

ri iS’ r ì i" f i* 

i n HZ 

ima 

;i 



- 

?■ r e rn ere IMS 

2020 

INPUT 

f : IF 

f < 0 

• 

0 x Pi f > 2 0 0 


000 T H E N GO T O 2030 
203O GO SUE 4-00O 

2G4-0 P R X NT RT 2G.0: •• In =. s. ri r £ 
< i n y. " , CHR4U4., " :« 


[ENTE Ri 


2 05 0 INPUT Ra : IP- Ra < 1 OR Ra > 100 

00 THE N G O T O 2050 
2'060 GO SUB 4.000 

206 2 PRINT RT 20.0: Ins * r i re Rb 
«in K “ Chr$ 14-4-" j s 

premere IMIilia 

20C-4. INF'UT P b : IE P. b < 1 OP F: b .» 3 00 

00 THE M GO TO 2064- 
2066 GO SUE 4000 

2070 L ET 0—1.44 ( i P a 4- ;2 P b '■ * f s 100 

0 :i 

2060 GO SUE 777/ 

2222 GO TO 200 
4000 L. ET J$ = " 

£ r - i w s p 3 z i 


4010 PRINT RT 12 
; RT 21,0 : j $ 

4020 RETURN 

1 0 i ..i $ i 

RT 

. .-% - : — 

C3 -i3‘ . ■ ,,l 33 

© © 6 6 G O S U E 4©00 
01 

: COPY 


U ' 7 Li 

7777 LET x =0 : IF 

P‘ r* 2 

C 1 P* 

Ra ,• 1000 

0 OR R b <1 OR Rb> 

10000 

OR 

C <0.000 

01 OR O b10 0 0 OR 
00 THEN LET x=l 

v .• .rn -rs *1 

f W ■ w -i- 

c 

R f>2000 

77 76 > IF x — 1 i ri E N 
' 1 UPLORI ERRATI" 

P P I NT 

Pi 

T 14,19.; 

7779 IF X=1 THEN 
7760 PRINT RT 14 

PAUSE 
,12: " 

•1 

00 


" • Re M 3 3 p a Z i 
7 7 61 IF X - 1 ThEN ft£TU R N' 


7785 GO TO 7866 

7790 LET = " K. "+CHP$ 144- LET K 

$ = " K”+CHR$ 144: LET = +CHF:$ 
145+"F": LET Z$ = " HZ " 

7792 IF P b =1G0G THEN LET b $ = ** M 

"+CHR$ 144 

7 7 9 4 1F R. b > "1000 ! H fc N L £ T S! b “ R. fc> s 

1000 

e' 7 96 LET iti $ =6TP $ P b • IF LEN ni $ :• 4 

THEN LET w $«1 TO 4 > 


Figura 81 (continua) 




7800 IF Ra >=1000 THEN LEI X $ = " M 
" +CHR$ 14.4. 

7802 IF Ra>=1000 THEN LET Ra=Ra/ 
1000 


7808 

LET 

f $ 

= STR$ 

Ra : 

IF 

LEN r $ 

> 4 

THEN 

LET 

F 

$=r|(l 

TO 

4- :i 



7810 

IF C 

< 1 

THEN 

LET 

y* = 

•• n F " 


78:12 

IF C 

< 1 

THEN 

LET 


* 1000 


7 818 

LET 

C $ 

= STRS 

C : 

IF LEN C $ >■ 

4 

THEN 

LET 

c $ 

= ci(l 

TO 

4- ) 



7 82 0 

IF f 

y — 

1000 THEN 

LET 

Z $ = •’ 

KH 


7822 IF f>=1000 THEN LET f=f/100 
0 

7827 LET t$=5TR$ f : IF LEM f $>4 

THEN LET f$=f* «1 TO 4- ) 

7829 PRINT RT 4- , 1 ; " "RT 7 

% 1RT 12 .< i .. " R 

T 11., 20.; •* 

7 8 3 0 P R I NT HT 4-,5-LEN r $ r $ ; X $ 

7835 PRINT RT 7,5-LEN w$ ; w$ ; h $ 

784-0 PRINT RT 12,5-LEN c $ ; c $ y $ 

7850 PRINT fiT 11,20; IN K 3 j ERIC 

HT 1 ; " f- " ; INK 7: BRIGHT 0; f$:z 

$ 

~j> c; (=; pgy |_| p (-..J 

7 8 i. 6 L ET "dt=Rb X < R a + 2 * R b ) 

7877 PRINT RT 6 - 23 : " " ; RT 

7,23 ; ; RT è . 2 3; " 

78 8 8 P L O T 18 4- 10 5 : D R R U 0,22: D R 
RU (1-dt! *5G,0 : DRfiU 0, -22 . DRRU 

d t *50 0 : DRh 0 ,i 2 

8 8 8 8 G O T O 7 7 8 8 


Figura 81 






Figura 83 
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LEGGE DI OHM 


Il terzo programma di progettazione elettronica, ed ultimo di questo Capitolo, é 
soprattutto un programma didattico sulla legge di OHM (Figura 84). Inserendo infat¬ 
ti i dati come vengono richiesti dal computer si ottiene un risultato come quello di Fi¬ 
gura 85. 

Da notare che il computer chiede sempre tutti e tre i dati e che bisogna perciò in¬ 
serire 0 quando il computer chiede il valore che deve essere calcolato. 

Le escursioni dei valori di V, R, I inseriti possono essere le seguenti: 


V da 0.000001 V a 1000000V 
R da 0.001 fi a 1000 Mfi 
I da 0.000001 A a 1000A 


IO 

20 

99 

LS 
100 
3676 
110 
8 , O ., 1 
30 13 

6 


REM 
REM - 
BORDER 


O: PAPER O: 
LET u =PEEK 23675+2! 


INK 6 : C 
: 6 # P E E K 2 


DATA 56,66,130,13©,68,4©,23 
6 2 54- 130., 13 O 130 , 13 O 13 O ., 1 

© .. 130 ., 130 ., 13© , 130 130.254- , 1 


120 

FOR a = U T o u + 

2 3 


130 

READ d: POKE 

•3 .. d : 

NEXT a 

14-0 

PLOT 63,132 


ORALI 

0,16: ORA 

5 6 ■ 

0: DRRU 0 , -4-0 

ORA 

LI -56.0: 

PALI 

O , 16 




ISO 

PRIMT RT 5,17 

.; C H R $ 

14-5.; AT 6 

17; C 

HR<6 14-6 




16© 

PLOT 71,131 


ORALI 

24. . 0 

170 

PLOT 77,127 


O R R Li 

1. 2 , 0 

160 

PLOT 77,126 


ORALI 

12,0 

190 

PLOT 77.125 


DRH li 

12.0 

200 

PLOT 74- , 136 


OPALI 

0,6 

2 10 

PLOT 71,139 


ORALI 

6 , 0 

2 20 

PLOT 130,154-: 

ORALI 

— 38 , © 

23© 

PLOT 13© , 154- : 

ORALI 

— .i ‘_J 

24-0 

PLOT 130.154.: 

DRRU 

— 3 . — 3 

25© 

INK 5: BRIGHT 

1 


260 

PRINT RT 7,11 

1 ' ' ' ' ; 

AT S,18;" 

•'; AT 

1.13;"I" 




e! 7 0 

INK 3 




2 6 0 

PRINT RT 2,21 

: ' ' U ! ' 

AT 4,21; 

R_" ; 

RT 6,21;“I_ 

* 



2 Q 0 

INK 7: BRIGHT 

0 


300 

LET C =0 





Figura 84 (continua) 
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310 INP UT "In s e rire U (in UoLt ) 
oppure 0 e premere wama ‘ v 

311 IF V =0 THEN GO TO 320 

315 IF V<1E—6 OR V > 1E6 THEN GO 
TO 310 

32© INPUT "inserire I (in Rmpe r 
) o ppu re 0 e p r e me r e " j i 

, xcr j ,rv -r- i i c: u , -r* . .tv 


322 

IF 

i 

=© THEN GO TO 330 

325 

IF 

i 

< 1E — 6 OR i 5- 1E3 THEN GO 

TO 32 

0 



33© 

INPUT "inserire R (in Oh m ) 

o ppur 

e 0 


e pre rii e r e t=4Bli=l a ; r 

•“j *“j "Tj 

IF 

r 

=0 THEN GO TO 340 

o o er 
■_* •_* 

IF 

r 

<1E — 3 OR r > 1E9 THEN GO 

TO 33 

0 



340 

IF 

V 

< >0 THEN LET C=C+1 

342 

IF 

i 

<>0 THEN LET C=C+1 

344 

IF 

f 

<>© THEN LET «: = C + 1 

350 

IF 

e 

<5-2 THE N G O T Q 777 

360 

IF 

'»!* 

=0 THEN LET V=i*r 

370 

IF 

r 

= © THEN LET r = v i 

3 0 0 

IF 

i 

=0 THEN LET i=v/r 

390 

IF 

V 

< 1E - 6 OR V > 1E6 THEN GO 

TO 77 

7 



400 

IF 

i 

< 1E - 6 OR i > 1E3 THEN GO 

T O 777 


41© 

IF 

r 

< 1E - 3 OR r > 1E9 THEN GO 

TO 77 

“7 


420 

LET 


X$ = "U" : LET y t=CHR$ 144 

LET 

Z $ 

= 

" ft “ 

430 

IF 

V 

1 THEN LET X$="mU“ 

44© 

IF 

y 

- 1 THEN LET V=vì1000 

450 

IF 

V 

>=1000 THEN LET X$ = ,, KU“ 

460 

0 

470 

IF 

v 

>=1000 THEN LET v=v.-100 

IF 

r 

> = 1E6 THEN LET y$ = , ‘M ,, +C 


HR $ 14-4- 

4-60 IF r >=1E6 THEN LET r=r/lE6 
4-90 IF r 5 =1000 THEN LET y* = "K ,, + 

CHR $ 14-4- 

500 IF r>=1000 THEN LET r=r/100 

0 

510 IF i<l THEN LET Z $ = " rii Fi *' 

520 IF i < 1 THEN LET i=i*1000 

530 LET V $=5TR$ V: IF LEN V $> 5 

THEN LET V $ = V $ (1 TO 5) 

54-0 LET r$= STR$ r: IF LEN r $ > 5 


THEN 

550 

LET r 
LET i 

$ = r $ ( 1 TO 
*=STR$ i: 

ÌF 

LEM 

i $ > 5 

THEN 

560 

LET i 
PRINT 

$ = i $ ( 1 T O 
RT 2,23, 

5 ; i 


" , RT 

4,2:i 

3; “ 

“ RT 

6 , 

2 3.; " 


570 

PRINT 

RT 2,23, 

v $ 

INK 

4 , X $ 

580 

PRINT 

RT 4,23.1 

r 

INK 

4.; y $ 


Figura 84 (continua) 
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590 

PRINT 

flT 6,23 

i $INK 4-z $ 

600 

GO TQ 

300 


■ i 

PRINT 

RT 1 1 7 

"URLORI ERRRT 

888 

PAUSE 

100: PRINT RT 11,7;" 

909 

GO TO 

3O0 



Figura 84 



Figura 85 
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UTILITY 


ROUTINE ‘PAINT’ IN BASIC 

Una istruzione di cui si sente la mancanza quando si usa l’aita risoluzione grafica 
dello Spectrum per disegnare, è l'istruzione 'PAINT’ (o FILL su altri computer) che 
serve per colorare l’interno di figure chiuse senza dover inventare ogni volta una 
routine apposita. La routine PAINT (Figura 86) può essere usata a tale scopo; basta 
infatti inserire nelle variabili ‘xp’ ed ‘yp’ le coordinate di un punto aH’interno della fi¬ 
gura da colorare (il più possibile al centro) e nella variabile ‘ip’ il colore desiderato, e 
quindi chiamare la routine con l’istruzione ’GOSUB 7000’. 

Naturalmente se la figura da colorare è molto complessa oppure rimangono degli 
spazi non colorati, è possibile indirizzare più punti all'Interno della figura e chiamare 
altrettante volte la routine. 

È importante che all’interno della figura non vi siano già delle scritte o altro che 
possa fermare il pennello della routine, inoltre nel programma non devono essere u- 
tilizzate le variabili ‘xp’, ‘Yp’, ‘ip’, ‘o’ e ‘q’ che vanno riservate alla routine stessa. 

In Figura 86 insieme alla routine è compreso anche un breve programma esem¬ 
pio che disegna due figure (Figura 87) e le colora (Figura 88) mostrando in pratica il 
funzionamento di ‘PAINT’. 


IO REM p r o q i" a rii rri a a s a ni p i o 
20 BORDER 0: PAPER 0: CLS 

30 IMK 7: PLOT 0,0: DRfllJ 255,0 

DRAU 0,175: DRALJ -255.0: DRRU 

0,-175 __ 

4 0 RE M 

50 INK 5: CIRCLE 50.50.30 

60 LET ip=5 : LET xp =50 - LET yp 

= 50: G O 5 UB 7000 

70 REM _ 

30 INK 6: PLOT 150.100 : DRAU 4 

5,0: DRAU 0.45 : DRAU -45,0' DRAU 

0,-45 

90 LET ip =6 : LET xp=170: LET y 

k =120 : GO 6UÈ- 7000 
100 STOP 

999 REM - 


QUADRATO qiallo 


7000 REM 


routine PAINT in B a 


Figura 86 (continua) 
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"7005 

INK iP 




7010 

F O R q = X P 

T O S 5 5 



TOSO 

FOR o=yp 

TO 175 



7030 

PLOT q , O 




7040 
T O 

IF POINT 

( q j O + 1 ) = 

O THEN 

N E X 

7050 

IF POINT 

(q + 1 ,y P > 

= 0 THEN 

NE 

XT q 
TOSO 

FOR q = X P 

TO S55 



7070 

FOR o = y p 

-1 TO -17 

5 -5TEP 

-1 

TOSO 

PLOT q,O 




7090 
T O 

IF POINT 

( q,0-1) = 

O THEN 

N E X 

7 100 

IF POINT 

( q + 1 , y p - 

1 ) =0 THEN 

MEXT 

q 




7110 

FOR q = X p 

-1 TO -SS 

5 STEP 

- 1 

7 ISO 

for o =yp 

TO 175 



7130 

PLOT q " O 




7140 
T o 

IF POINT 

t; q o +1 :i = 

O THEN 

NEX 

7 150 

IF POINT 

( q - 1 y P ) 

=0 THEN 

NE 

XT q 
7 160 

F O R q = X P 

-1 TO -SS 

S STEP 

_ «1 
.... _4_ 

7170 

POR O = y p 

-1 TO -17 

5 STEP 

- 1 

7 160 

P L OT q , O 




7190 

T _ O 

IF POINT 

< q , O - 1 ) = 

O THEN 

NEX 

7 S 0 0 

IF POINT 

(q-l.,yp- 

1 !• =0 THEN 

NEXT 

q 



7 S S S 

RETURN 





Figura 86 
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Figura 88 


NOTE SULLE ROUTINES SCROLL’ 

Le prossime quattro Utilities sono le routines ‘SCROLL’. 

Si tratta di quattro routines in linguaggio macchina, le quali, ogni volta che vengono 
chiamate da una istruzione ‘USR’ spostano di un carattere tutto il contenuto dello 
schermo rispettivamente verso sinistra, verso destra, verso l’alto o verso il basso. 

Tali routines sono molto utili, inserite in appositi programmi, per estendere le di¬ 
mensioni virtuali dello schermo, che diventa una finestra su uno schermo più ampio 
non visibile il quale può avere anche per esempio 50 righe per 80 colonne. 

Altri usi sono per spostare in un dato senso una serie di dati o delle immagini (una 
versione modificata degli Scroll a sinistra ed a destra è usata per esempio nel gioco 
‘Tiro alla fune’, in questo libro, per spostare rapidamente tutta la parte superiore del¬ 
lo schermo a destra o a sinistra secondo le necessità del programma). 

Da notare che lo Spectrum ha già lo Scroll verso l'alto che però, a differenza della 
routine in linguaggio macchina, si blocca ogni 22 linee visualizzando la scritta 
scroll?’ che chiede se lo scroll deve continuare. 

Importante: in tutte e quattro le routines (che comprendono anche un esempio di 
funzionamento) le istruzioni in linguaggio macchina sono caricate nella zona di me¬ 
moria riservata ai caratteri speciali, naturalmente se tale zona serve al programma 
utilizzatore, la o le routines possono essere memorizzate tra la fine dello stack e l'i¬ 
nizio della zona degli UDG usando il comando CLEAR nel modo indicato al capitolo 
26 del manuale dello Spectrum. 
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SCROLL A SINISTRA 


La prima routine (Figura 89) che è lunga 24 Bytes, scrolla tutto lo schermo verso 
sinistra di un carattere ogni volta che il programma incontra un istruzione tipo: LET 
s=USR n dove ‘n’ è l’indirizzo della RAM dove comincia la routine e che nel pro¬ 
gramma esempio è (u+144). 


LS 


ss rem iasim 

77 REM - 

99 BORDER O 




PAPER 0 


IMK 6 


C 


100 DATO S .. 192 .i 33 , 1 .. S4- .. 22 9 .. 209 .. 
£7 ; 197 ; 1^31,0,237,176,43,54,0,19 
, 35,35,193,16, 241 ,20 1 
104- LET U=PEEK 23S75 +25S *PEEK 2 
3 S T 1 6 


110 FOR a = U+14 4 T O U+1S7 
120 READ d: POKE a,d: MEXT a 
999 REM - 


1000 REM programma esempio 

1010 REM - 

1015 FOR X =1 TO 100 
1020 FOR a = 0 TO 359 

1030 P RINT AT 10+9*51N (PI/9*a) 

3 1 I " , " 

1040'LET s=USR (U+144) 

1044 PAUSE 5 
1050 NEXT a 
1060 MEXT X 


Figura 89 
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SCROLL A DESTRA 


Anche questa routine (Figura 90) è lunga 24 bytes e scrolla tutto lo schermo ver¬ 
so destra dì un carattere ad ogni istruzione tipo LET s=USR n dove ‘n’ è di nuovo l’in¬ 
dirizzo di partenza della routine nella RAM, nell’esempio quindi (u+144). 


gg rem «ìih— aaaaaMSMflsBuiaa 

77 REM - 

99 BORDER 0 : PAPER 0 : INK 7 : C 

LS 

100 DPTR 6 j 192 33 .. SE4- S7,229,20 
9,19,197,1,31,0,23? , 18 4-,35,54-,0, 
27.4-3.4-3.193,16,24-1.201 

104- LET u =PEEK 23675+256*PEEK 2 
3 6 76 * 

110 POR a = IJ + 14- 4- T G U +16 7 

120 READ d : POKE a ,d : M E XT a 

999 REM -•- 


1000 

REM 


programma es 

empio 


1010 

REM 

— 


-- 

1011 

LET 

t. = 

1 



1015 

FOR 

X = 

1 TO 100 



1020 

POR 

a = 

O TO 21 



1030 

1 1 

XF t 

= i 

THEN PRINT 

r t a , 

0,1 ” . 

1033 

0 ; " . ' 

104-0 

_ IP t 

=- 

1 THEN PRINT 

RT 2 

1 -a , 

LET 

a — 

USR <U+14.4.) 



104-4- 

PAUSE 

5 



1050 

NEXT 

a 




1055 

LET 

t = 

t *-l 



1060 

NEXT 

x 





Figura 90 
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SCROLL IN ALTO 


Altra routine (Figura 91), lunga 121 Bytes, questa volta per lo scroll in alto di un 
carattere ad ogni istruzione LET s=USR 'indirizzo routine’, indirizzo che nell’esem¬ 
pio è (u+47). 


66 

REM 

■ rou 

ir. SCROLL 


TFT 

HL 

IMBUÌ 

77 

REM 

-- 


— 

— 

— 

-- 

99 

BORDER 0 

PAPER 0 


INK 

2 : C 

LS 








100 

DRTR 

6 .. © 

,33,32,64 

i 

17 

, 0 , 

6 4,1 

97,1, 

224. , 

0,23 

7,176,62, 

3 

P , 

35 , 

19,6 

1,32 , 

25 1 , 

193 . 

16.240 





102 

DRTR 

&s 

.i 3 3» ,i O ; 7 2 .» 

i 

f' ^ 

2 2 4- 

, 64 , 

197,1 

, c£ , 

0,23 

7,176,62, 

o 

24 

, 3 5 

.. 19 , 

61,32 

, 25 Ì 

, 193 

,16,240 





104- 

DRTR 

6.8 

33.32,72 


17 

. O . 

72,1 

97 ,i 1 ,i 

2 2 4- .i 

0,23 

7,176,62 


2 .i 

3 R 

19,6 

1,32 , 

251 , 

193 , 

16,240 





106 

DRTR 

6.3 

,33.0.30 . 

i 

7* . 

224 

“7 O 

197,1 

, 32 

O , 23 

7,176,62, 

2 2 4- 

.» 3 

. 19 , 

61,32 

, 251 

, 193 

,16,240 





103 

DRTR 

6 , ss 

.i -J J ^ 3 2 j 3 


17 

, 0 , 

30,1 

97,1 , 

224 . 

0,23 

7,176,62, 

•«3 

2 

35 , 

19,6 


1 32 . 

,251,19 

3,16,240 


116 

DRTR 2 

01 


12 © 

3676 

LET u = 

PEEK 23675 + 256*REE K 

2 

130 

FORI a = 

U + 4 7 TP U + 16 7 


140 

RERD d 

POKE a,d 


150 

NEXT a 



999 

REM -- 


— 

1000 

REM 

P r o 9 r a rn m a e s e rii p i o 


1010 

REM -- 

— 

10 2 0 

FOR a = 

1 TP 1000 


10 30 

1 1 

PRINT 

RT 21,1NT ( R N D * 3 2) ; ’ 

'■ 

1040 

LET S = 

U5R (U+475 


1044 

PAUSE 

5 


1050 

NEXT a 




Figura 91 






SCROLL IN BASSO 


Ultima routine (Figura 92), lunga 140 Bytes, scrolla verso il basso di un carattere 
le prime 22 linee sempre ad ogni istruzione tipo LET s=USR 'indirizzo routine’, istru¬ 
zione che nell’ultimo esempio (che produce una pioggia di Dollari e Sterline) è USR 


66 

rout 

. ìLRULL 

IN BASSO! 

77 

99 

REM- 

BORDER 0: 

RRPER 0: 

INK 4 : C 


LS 

100 D flT R 6 .t S .. 3 3 ., 2 2 3 S 7 ., 17 2 5 5 .■ 3 
7,197,1,224- , 0,237,134- , 62,32,4-3,2 
7.61.32.251,. 193,16.24-0 

101' DfiTR 17,224- , 0,6,3,33,192,30 
; 62 32,54,0 35 .,81., 32 250 25 16,2 

4-5 


102 DRTR 6,3,33,255,79,17,31,37 
, 197,1,32,0,237,134- , 62,224,4- 3,27 
, 6 1,3 2,2 5 1,1 y 3,16,2 4 0 
104- DRTR 6,3,33,223,79,17.255.7 
9,197,1,224- , 0,237,134.62,32,43,2 
7,61,32,251,193,16,24© 

106 DRTR 6,3,33,255,71,17,31,79 
,197,1,32,O,237,134,62,224,43,27 
, 1 ,-32 ., 2 51 , 19 -3 ., 1 6 , 240 

108 DRTR 6,8,33,223,71,17,255,7 
1 . 197,1.224.0.237.134,62.32.43 , 2 
7,61,32,251,193,16,240 

11© DRTR 17,224,0,6,3,33,0,64,6 
2,32,54,0,35,61,32,25© ,25,16,245 
112 DRTR 201 

120 LET U=PEEK 23675+256*PEEK 2 
3 6 7 6 

130 FOR a=u TO u +158 

140 RERD d: POKE a.d 

150 MEXT a 

999 REM - 

IO©© REM P r oqr a m ma esempio 

1010 REM - 

102© FOR a =1 TO 100© 

1030 PRINT RT O.INT (RND+32);CHR 
$ (36+ (6 ©4INT (RND+2) ) ) 

1040 LET s=USR U 
1044 PROSE 2© 

1050 NEXT a 


Figura 92 


95 





RENUMBER 


Un programma di Renumber è molto utile nella programmazione per riordinare 
automaticamente tutti i numeri di linea appena cominciano ad essere un po’ confusi. 

La versione di Figura 93 realizza tale riodino escluso i numeri dopo GOTO e GO- 
SUB che vanno modificati singolarmente. 

Il programma va fatto girare con un RUN 9020 o con un GOTO 9020. Dopo di ciò 
appariranno le scritte in Input che chiedono l'inserimento prima del numero da cui i- 
niziare la rinumerazione (per esempio 3), poi del nuovo numero di linea iniziale (per 
esempio 100) ed infine della distanza desiderata tra linea e linea (per esempio 10). 
Naturalmente è possibile effettuare anche più di una rinumerazione per esempio per 
avere le prime 16 linee rinumerate con 100, 110,120, ecc... e le altre 27 linee rinu¬ 
merate con .1000, 1050, 1100, ecc. 

La Figura 94 mostra come esempio un programma che ha bisogno di essere rinu¬ 
merato, mentre la Figura 95 mostra una delle possibili rinumerazioni dello stesso ot¬ 
tenuta con il programma 'Renumber' appena descritto. 

Per comodità il Renumber può essere memorizzato su una cassetta con il coman¬ 
do SAVE "renumber" e caricato in memoria quando occorre tramite il comando 
MERGE “renumber” che consente di inserire il Renumber nella RAM senza cancel¬ 
lare il programma che state scrivendo. Naturalmente per usare il Renumber il pro¬ 
gramma da rinumerare non deve usare le linee da 9000 a 9140, inoltre vanno riser¬ 
vate al funzionamento del Renumber le variabili 'im', 'nir', ‘nli’, ‘dtl’, 'nx'. 


9QOO REM — I li IHnl 1 I — 

9010 STOP 

902O INPUT “Inserire N" Linea ini 

zio renu rii ber", ,nir 

9O30 INPUT "Inserire nuovo N" Lin 
ea iniziale",,,nLi 

904-O INPUT “Inserire distanza tr 

a Linee",, , dt l 

9050 LET imsPEEK 23635+256*PEEK 
23636 -1 

9060 LET n X = P E E K t i m + 11 *256 +PEEK 
C i rii + 2 ') 

9O70 IF nX <ni r THEN GG TO 9120 
9030 IF n X =9000 THEN GO TO 9 14-0 
909O POKE ( i rii + 1 ) , INT (nli /25S 1 

9 IO© POKE ( i ni +2 ) , n L i -256 * INT ( n l 

i /256 ) 

9110 LET nLi=nLi+dtL 

9120 LET i rii = i rii + 4- + P E E K ( i rii + 3 i + 2 5 6 
* P E E K (im+4) 

9130 GO TO 9O60 
914-0 LIST 


Figura 93 
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H0r-Hijn:riTfu:'0in000©Qi:':i©Q©©©(O 0000000000000000000000 

H fu * Ti rt 0 0 |fl00 0 0(0 0 0000CO 0 H OJ (0 ri []J Ijj p- (0 «TTl 0 H 01 (0 rf [fi IJJ Tv fO tji 0 H 

OJ OJIO (jl 0 IO 0 0 IO 010 0 IO CO HHHrlrlrldHHd OJ 0101 OJ 01 lìj ftj OJ 01 OJ 0 (0 

h noi 00* io omo 


P: E M P r o g r -3 ro m a e i a rii p i o 
REM per p rov a RENUMBER 
REM Linee 1 - - ’~3 3 3 3 

REM - 

L. ET X = S 3 5 + S T 3 
FOR K=1 TO 100 
PRINT "yt"; 

MEXT K 

PRINT " f f f f " 

CIRCLE 4-0,4-0,10 

DATA 10,4.,? ,6S .40,99,0,3 

GO SUB 3333 

READ d: PRINT d 

PLOT 5,5: DRAU 80.8O 

STOP 

RANDOM IZE 
LET g=RND*10 
PRINT REE K £3676 
LET r$ = ”f f'fgjUi" 

PRINT LEN r $ 

RETURN 

REM fine programma esempio 


Figura 94 


R E M R r o g r a m m a e s e m p i o 

R E M p e r p r o va RE N U MBER 

rem Linee 1 -s 3 ss 

REM - 

LET x=235*673 
FOR K =1 TO 100 
PRINT "yt"; 

NEXT K 

PRINT "ffff" 

CIRCLE 4-0,4-0,10 

DOTO 10,4. , ■? , SS , 4-0,99 , O , 3 

G O S U E* 3 3 3 3 

READ d: PRINT d 

PLOT 5,5: DRAU 80,80 

STOP 

RANDOMIZE 
LET g=RND*l© 

PRINT REE K £3676 
LET r$ = " f f fgjtu ” 

PRINT LEN r $ 

RETURN 

R E M fine p r o g ramma es emp i o 


Figura 95 
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LETTORE MEMORIA RAM/ROM 


Un’altra utility interessante è il lettore della memoria del Computer (Figura 96) 
con il quale si può leggere il contenuto di una parte qualsiasi della ROM o della RAM 
a partire da un indirizzo inserito all’inizio. 

La Figura 97 mostra un esempio di lettura della RAM ed in particolare proprio di 
una zona nella quale è scritto il programma di Figura 96; come si vede il lettore me¬ 
moria visualizza l’indirizzo, il contenuto decimale ed il corrispondente carattere di 
ciascun Byte esaminato. Se il carattere ha un codice inferiore a 32 esce la scritta ’— 
—’, mentre, se il carattere è uno di quelli grafici definibili, viene visualizzata la let¬ 
tera corrispondente preceduta da una ‘G’ inversa. 

Il programma ha un funzionamento continuo premendo ENTER ogni volta che e- 
sce la scritta ‘scroll?’ e può essere fermato con un Break. Un'altra possibilità è quel¬ 
la di numerare il programma per esempio con i numeri da 8000 a 8140 in modo da 
caricarlo da una cassetta nella RAM con un comando ’MERGE’ insieme ad un altro 
programma che si vuole esaminare; in questo caso il lettore memoria va fatto girare 
con un RUN 8000 o con un GOTO 8000. 

Le variabili riservate al funzionamento di questo programma sono: ’ip’, ’w$’, ‘w’. 


10 

MdSBLETTflRE MEMORIA 

20 

REM- 

— 

— 

— 

— — 

— - 

-- 

— 

— 

— 

99 

BORDER 

0 : 


P 

RPER 

0 : 

INK 

“7 • 


c 

L. O 
100 

INPUT ' 

' In 

s 

e 

ri re 

i n d 

i riz 

z o 


d 

i pai 

■ t e n z a 

c 

0 

- 

-655 

35 ) 

e p 

r e 

rii 

e 


re tasuaa , i p 

110 IF ip<0 OR ip>65535 THEN GO 
TO 100 

120 FOR w=ip TO 65535—ip 
130 IF W =ip OR tu - 1NT /1 0 ) *10 = 

0 THEM FRINT 


z z oo n te n 


Ca r a ttare 


14.0 LET w$ = " 


‘ ' + ST R $ w + " 


150 PRINT ut iti TO 15); 

160 LET W$=STR$ REE K W+“ 

170 PRINT W $ ( 1 TO S) .; 

180 IF PEEK w >31 AND PEEK w <144 
OR PEEK W >164 THEN PRINT CHR$ P 
EEK W 

163 IF PEEK W >143 AND PEEK W <16 
5 THEN PRINT "H ";CHR* (PEEK w-7 
9 ) 

190 IF PEEK W <32 THEN PRINT 

i » 

200 NEXT w 


98 


Figura 96 
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CONVERSIONE DECIMALE/ÈSADECIMALE ED INVERSO 


Spesso le routines in linguaggio macchina usate in alcuni programmi vengono ca¬ 
ricate in memoria a partire da stringhe o istruzioni DATA che contengono i loro codi¬ 
ci scritti in esadecimale. 

In questo ed in molti altri casi è comodo disporre di un programma come quello di 
Figura 98 che converte numeri decimali in esadecimali e viceversa. Il programma 
può convertire numeri decimali da 0 a 16777215 e numeri esadecimali da 0 a 
FFFFFF con una capacità quindi di 24 Bit sufficiente perciò per essere usato anche 
nella programmazione dei più recenti microprocessori a 16 Bit. 


10 REM 
20 REM 
30 REM 


«aa mmaaiaìii i a M 

99 BORDER O: PPPER 0 : INK ? 


LS 

100 PRINT flT 0 , 0 ;"tasto S Pe 
nserire N" Decima Le" 

110 PRINT AT 2,0; "tasto GB pe 


C 

i 

i 


ns . 

■i m E s a d 

120 

LET t = 

130 

IF t =6 

160 


140 

IF t. =7; 

270 


150 

GO TO 

160 

INPUT 

..'16777215 . ) 

d 


170 

LET f = 

1S0 

IF d < 0 

O TO 

160 

190 

LET C$ 

200 

LET h $ 

210 

FOR a = 

220 

LET h $ 

230 

LET f = 

240 

NEXT a 

ì=l 4- X 

LET S = 

24 2 

FOR a = 

244 

IF h $ ( 

246 

IF CODI 

250 


2 4 S 

NEXT a 

250 

LET h $ 

270 

INPUT 


)DE INKEY $ 

OR t=10O THEN GO TO 
OR t =104- THEN GO TO 


120 

"In s e r i r e N * De c i tu • ( 0 . 
e premere 


ENTER 


OR d :> ( 2T 24-1) THEN G 


iTEP 


1 


t t 


NT (f/16ta) 
1 6 T a ') * 1 61 a ) 


N h $ 

THEN LET S=S+1 


= h $ C s T O ) : G O T O 3 7 0 
"In s e ri re N 11 E s a d e c i m . 
(0-/FFFFFF.)e premere 
LINE h $ 


ENTER 


Figura 98 (continua) 
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r - 001T1.- Q... ©x 0© 0 0 © z 0 © r --■ © w gì 

f - (0 Oì iJi 'TJ© m HI H ^ ÙJ 0 0 rf Uì IlI 0 f - p- iti (0 iji 

fu fu oj fu w 0 -■ 0 0 iu 0 itj 0 0 o 0 j 0 0 0 a o ai 0 


IF LEM h $ >S THEM GO TO 270 
LET X $ =h $ 

POR a=l TO LEM x$ 

IF CODE X $ t a) >57 AND CODE X 

<55 THEN GO TO 270 
>IF CODE X $ (al >95 RNO CODE X 

<103 THEN LET X$(3) =CHR$ <(C 
x $ c a ) ;i ~ 3 £ ;i 

IF CODE X $ C a '} >54- fiNC 1 CODE X 

<71 THEN LET X $ < a i> =CHR $ < (CO 

$ C a ) 3 - 7 il 

IF CODE X $ ( a ) <4.5 OR CODE X$ 
53 THEN GO TO 270 
NEXT a 
LET d=0 

FOR a = 1 TO LEM X$ 

L ET d = d + ( C O D E x $ (ai — 4- 5 i' *16 T 
x $ - a ii 
NEXT a 
C L S 

PRINT fiT 6,0; INK 6 ;"N* Dee 

e _ " d 

PRINT fiT 3,0; INK 5 ; "N* Eia 

rii a L e _ ", h $ 

L* Li T Li 100 


Figura 98 
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ANIMAZIONI 


VIAGGIO SPAZIALE 

La più bella delle animazioni è senzaltro il Viaggio Spaziale (Figura 99) che simu¬ 
la appunto il viaggio di una astronave nello spazio con le stelle che dal centro del¬ 
l’immagine fuggono verso l’esterno. Prima di ottenere l’effetto occorre aspettare cir¬ 
ca venti minuti durante i quali il programma esegue una serie di operazioni che ser¬ 
vono al funzionamento poi dell’animazione. Importante: Per settare correttamente 
gli attribbuti di colore il programma funziona con INK 0 e PAPER 0 durante l’esecu¬ 
zione delle linee da 500 a 1000 per cui se fermate il programma in questa fase può 
sembrare che si sia cancellato, in realtà il programma c'è e basta eseguire in modo 
diretto l’istruzione ‘INK 7’ per rivederlo. 


IO REM 

SO REM -- 

77 BORDER 1: PRPER O 
SS INK 7 : CLS 

99 CLEfiR 3O00O 

lOO DATA 33,SS,117,17,O,SS,1,19 
2,2,237,176,201,33,23,120,17,0,8 
8,1,192,2,237,176,201,33,216,122 
,17,0,SS,1,192,2,237,176,201,O 
120 FOR a=30001 TO 30O37 

130 READ d: POKE a,d: NEXT a 
14-0 LET at tr =22528 

ISO GO TO EOO 
ISO INK 7: CLS 

1S2 FOR a =0 TO 360 STEP 4- 
190 LET k =PI18 O * a 

200 LET I. =10+RND*1O 

210 FOR £ = 1 TO 5 

230 LET X=128+UCOS K 
240 LET y =88+1. iSIN K. 

250 IF X <0 OR X >255 THEN GO TO 

280 

260 IF y <O OR y >175 THEN GO TO 

280 

270 IF RND<0.2 THEN PLOT INK 6; 
X . y 

280 LET l. = 1.+30 

288 NEXT £ 

290 NEXT a 

30O LET k=USR 300O1 

Figura 99 (continua) 
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PAUSE 7 

LET K. =USR 30013 

PAUSE 7 

LET K,=USR 30025 

PAUSE 7 
GO TO 300 
IN K 0 : C L S 

POR r =0 .5 TO 20 STEP 4- 
POR .3=0 TO 36© STEP (10/D 

LET k= PI/ 130*a 

LET l =10. 5+r *SIN K 

LET C=15.5 + r*CO S K 


IP ' 1- < 

0 OR 1. > 

21 

THEN 

G O T O 

cr 

•— 1 

IP c < 

0 OR C 

3 1 

THEN 

G O T O 

cr 

PRINT 

AT L , C 

.• 

INK 7; 



NEXT 

a : NEXT 

r 




L ET ro 

•=: rii =300 3 

© 




POR a 

= 0 T O 7 

0 3 




POKE 

t m e m + a J 

, PEEK (attr+a) 


NEXT 

C L S 
POR r 

a 

= 1.5 T O 

•2ii 

0 STEP 

4- 


P O R a 

= 0 TO 3 

6 0 

STEP 

r 1 0 - r > 


LET k 

=PI/180 

* -3 




LET L 

=10.5+r 

ì? :© 

IN k 



LET C 

=15.5+r 

#C 

OS k 



IP L < 

O OR !.. > 

2 1 

THEN 

G O T O 

? 

IF C < 

0 OR c ; 

.-i 

W -i- 

THEN 

G O T O 

y 

P R I NT 

AT 1. , C 


INK 7, 



NEXT 

a : NEXT 

r 




L ET m e ro =3074. 





POR a 

= 0 TO 7 

©3 




POKE 

( m a rn + a ) 

.PEEK (a 

t. t. r + a :• 


NEXT 

a 





C L S 
POR r 

= 2.5 TO 

•“t 

i—.. 

0 STEP 

4- 


FOR a 

= 0 TO 3 

60 

STEP 

11 0 r :i 


LET k 

=PIX180*3 




LET 1. 

= 10.5 + i- 

•¥■ S 

IN k 



LET C 

=15.5+r 


O S k 



IF !. < 

0 OR I. > 

21 

THEN 

G Q T O 

•9 

IP C < 

O LJ R C ? 

3 1 

THEN 

G O T O 

9 


PRINT AT L.c; INK 7 ; 

NEXT 3 : NEXT r 
L ET ni e rii =314-4-8 
POR 3=0 TO 703 
P O K E < ro e ni + a ) , PEEK (attr+a) 
NEXT a 
C L S 

ISO© GO TO 180 


Figura 99 
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LANCIO SPACE SHUTTLE 


Il programma (Figura 100) simula il conteggio alla rovescia e la partenza della 
navetta spaziale americana (o Space Shuttle). Dopo la partenza, la navetta (che è 
riprodotta in maniera molto realisitca con i caratteri definibili) sale, scomparendo 
nella parte alta dello schermo. In Figura 101 si vede la navetta all’Inizio del conteg¬ 
gio alla rovescia. 


IO REM ■WÌiaWMMaì!M»SIIÌÉM^i 

20 REM - 

100 BORDER 0: PAPER O: INK 7: C 
LS 

IIO DPTR O .. O .. O O O O 2 7 2E- 96 

24-0,14-4- , SO , 20S , 2OS , SOS 
120 DATA 6,14- . 14.14.14,14.14- . 14 
, 2OS 203,20S , 2OS , 203,20S , SOS , SOS 
130 DRTR 14 3O ,, 3 1 S2,124- 96,193 
, 12S , SOS , SOS , 240 , 224,192 , 192,224 
.. O 

140 L.ET U=PEEK 23675 + 256 *PEEK 2 
■3 6 7 6 

"150 FOR a =U TO U + 47 
ISO RERD d: POKE a,d: MEXT a 
17© LET a$=CHR$ 16+CHR$ 7+CHR$ 
144 +CHR$ 16 +CHR$ 2+CHR4 145 
ISO LET b$=CHR$ 16+CHR$ 7+CHR* 
146+CHR4 16+CHR4 2+CHR* 147 

190 LET C $ =CHR $ 16+ CHR$ 7+CHR$ 

148+CHR4 16+CHR4 2+CHRS 149 

200 PRINT RT 1S , 20 ; INK 5 ; " 0 " fi 
T 19,20.; INK 5;"EE3";fiT 20,20; IN 

K 5 ; "gas- _ 

210 PRINT RT 2 1,0.;' INK a .;''———* 


220 PRINT RT 18,16;a$;AT 19,18; 
b$ ; RT 20.18; c $ 

230 R fi N DOMIZE 

240 FOR •=• = 1 TO 30 

2SO LET 1=1 + 1NT l RND *14) 

2SO LET c=INT (RND *32) 

2 70 IF C >15 fiND c <21 THEN GO TO 
260 

2SO PRINT RT L , C .; INK 2 + INT (RN 
D*S) ” . " 

290 NEXT s 

300 PRINT RT 19,26; INK 7; "00:0 

il * 

310 FOR t=9 TO O STEP -1 

320 P R U SE 4 5 

330 PRINT RT 19.30; INK 7;t 

340 NEXT t 


Figura 100 (continua) 
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350 

FOP. I. =17 Tu 

0 STEP -1 



360 
= l +3 

LET g = i. + 1 : 

LET h =■!.+£: 

LEI 

c 

370 

PRINT PT 1. , 

1 8 j s $; hT g 

j 13 ; " 

, 16; 

b$ 

j fiT h 

, 18, C$J RT S 


360 

NEXT 1. 




390 

PRINT PT 0. 

1S b $ PT 1 

.. 16.: 

C $ 

fiT 2 

, 16, " 


4-0© 

11 

PRINT PT 0 f 

16 ; c $ ;RT 1 

, 18; 

' ' 

4-10 

P R I NT PT 0 , 

18; " 




Figura 100 



Figura 101 
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ANIMAZIONE ESPLOSIONE 


In Figura 102 il programma che disegna un asteroide (Figura 103) il quale viene 
colpito e ridotto in tanti pezzi da un missile. 


IO REM ■agMBtt^mP«=*s1-aTO=»«Mg|sM 

20 REM - 

10O BORDER 0 : PAPER 0 : CLS 
110 DATA 128,66,4-9,4.7,22,30.9 
50,34- , 4- , 34- , S 1,4- , 4.1 , 16 ., 133,136 , 

SO, 130,32 j 82 j 8 ; 162 
120 DATA 13,4-, 62,137.16.165.0,1 
7,30,132,13,164- , 73,32,132,16 

130 LET U=PEEK 23675+256+PEEK 2 
3676 

14-0 FOR a = U T O u +39 
ISO READ d: POKE a,d: NEXT a 
160 LET a$=CHR$ 16+CHR* 6+CHR$ 
144- 

170 LET b $ =CHR $ 16+CHR$ 2+CHRJ 

14 5 + C H R $ 146 

180 LET C $=CHR$ 16+CHRÌ 2+CHR* 
147+CHRJ 143 

190 FOR a=0 TO 6 STEP 0.5 
2O0 INK 5 : CIRCLE 56,128,3+1 
202 CIRCLE 57,128.a 
210 NEXT a 

220 PRINT RT 21,22.; a$ 

230 PAUSE 100 

■240 FOR a =20 TO 6 STEP -1 
e! 50 PRINT AT 3+1,3 +u-:.; " hT a ., a 

+1 > a $ 


260 

PROSE 

1 



270 

NEXT a 




260 

PRINT 

-,T 

Pi , Pi | 

b $ RT 6,6 c $ 

29© 

BEEP 2 

J 

40 ' 

30O 

PRINT 

RT 

5,6 ; 

";AT 6,6: 


Figura 102 




Figura 103 
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CALEIDOSCOPIO 


Nel programma ‘Caleidoscopio’ (Figura 104) dodici diversi oggetti di colori ca¬ 
suali appaiono e scompaiono continuamente e velocemente sul video, simmetrica¬ 
mente nelle quattro zone in cui è diviso (Figura 105). 


10 REM HRHEUDfflSfflOla UH 

£0 REM --- 

100 BORDER 0: PAPER 0: CLS 
110 DATA 60.60.0. £31 . £31.0.60.6 
0 ,£31 ,£31 £31,0,0 ,£31 ,£31 ,£31 

1 £ 0 DATA 3 6,3 6,231,0,0,23 1 ,3 6 , 3 
6,0., 1£6,66,30.90 , b b . 1 £6.0 

130 DATA £4- ,36,66,1£9.129.66.36 
. £ 4- ,0,1 £ 6,1 £ 6 . £ 4- . £ 4- , 1 £ 6.1 £ 6,0 
14-0 DATA 1 ££, , 1£6 ,O,60,60,0,126 . 
126,66.219.36.66,66.36.219.66 


Figura 104 (continua) 



Figura 105 
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150 DPTR 60 36,255,165,165,255 , 
36 j 60,102,189,195 , 66 , 66,195 ^ 189, 
102 

160 DRTP 36,66 139,36 36,189,66 

, 36.0 i 12 £> . 126.126,126.126.126.0 
'170 LET Ù=PEÈK 236 75+256 * P E E K 2 
3676 

180 F O P. — ij T O i. 1 + 9 5 

190 READ d : POKE a , d: NEXT a 

200 RRNDOMI2E 

210 LET X = 14.4- + INT (PND*30) : IF 
X >155 THEM LET x=128 
220 LET I. =1 + INT £ RND *10) 

230 LET C =6 + 1NT (RND*101 
24-0 IWK 1 + IHT ( RND *7 ) 

250 PRINT RT l , CJ CMR$ X ; RT L ,32 
- C CHR $ X I RT 22-1 ,32-C ; CHR % X ; RT 
22- I. , c CHR$ X 
26 0 G O T D 210 


Figura 104 


109 




ROMBOSPIRALE 


Altra animazione è 'Rombospirale’ (Figura 106) che disegna e cancella alternati¬ 
vamente in continuazione, una spirale a forma di rombo formata da caratteri e colori 
casuali (Figura 107). 


10 

REM 

ISSOfijBBSlS IltìPfflE 

20 

REM -- 

— 


100 

BORDER 

0 : 

PRPER 0: GLS 

110 

i_ ET C = 

1 


1. ir! 0 

G O 5 U B 

37 0 


13 0 

F O P p - 

1 TO 

11 

14-0 

P R IMT 

RT 1 

2 -P .P+5 ; CHR $ 

150 

NEXT p 



160 

FOR n = 

1 TO 

11 5TEP 2 

170 

G O SUB 

370 


1S0 

FOR D = 

1 TO 

12-n 

190 

PRINT 

RT - 

1 + p + n 15+ p C- H R $ 

200 

MEXT p 



210 

G O S LI B 

370 


22 0 

FOR p = 

1 TO 

12-n' 

2 3 0 

PRINT 

RT 10+p,28-P-n;CHR$ 

24 0 

NEXT P 



250 

GO SUB 

370 



Figura 106 (continua) 
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Figura 107 
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260 

F 0 R p = 1 T O 

ll-ri 

27 0 

PRINT RT 23 

-P -n , 

l=! C 1 ' 0 

NEXT p 


290 

G O 3* U E; 3 7 0 


300 

F 0 R p = 1 T G 

11-n 

31© 

PRINT RT 13 

-P , 5 1 

320 

NEXT p 


33© 

NEXT n 


34© 

LET C =c * {—li 

350 

LET X=32 


360 

GG TO 120 


3 7 0 

IF C =1 THEN 

LET 


N Dilli) : INUERSE INT (RND*2) 
K INT (RND*7)+1 
380 RETURN 


( R 
IN 


Figura 106 
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PROGRAMMA UNIVERSALE ANIMAZIONE CON PRINT AT 


Una complessa animazione può richiedere decine di linee con PRINT AT. Il pro¬ 
gramma di Figura 108 permette di condensare tutte le istruzioni necessarie all'ani¬ 
mazione in sei stringhe. 

Per ogni singolo movimento le sei stringhe contengono in codice i seguenti dati: 


1$ 

codice linea 

c$ 

codice colonna 

i$ 

codice INK 

p$ 

codice PAPER 

x$ 

carattere (anche grafico o speciale) 

t$ 

codice tempo tra un PRINT AT e il successivo 


I codici ed i rispettivi valori per. linee, colonne, tempi e colori INK e PAPER, sono 
nella Tabella 2; per quanto riguarda i caratteri, nella striga x$ è presente direttamen¬ 
te il carattere e non un suo codice. 

Per un corretto funzionamento è essenziale che le sei stringhe abbiano la stessa 
lunghezza. 

Nel programma è anche prevista una zona (a partire dalla linea 1000), dove inse¬ 
rire eventuali routines (come nell’esempio) per caricare in memoria caratteri spe¬ 
ciali o per disegnare all’inizio figure o altre cose necessarie all’animazione. 

I dati contenuti nelle stringhe del programma di Figura 108, mostrano, come e- 
sempio di animazione, il movimento di un insetto in una tana con una entrata ed 
un’uscita, in Figura 109 è visibile l’inizio di tale animazione. 


30 REM con dati esempio 

4-0 REM - 

99 B ORDE R 4-: PAPER 0: CL.S 


100 GO SUB. 
110 REM 
ISO 


1000 


LET l. $ = "5555555555554-444333 
3 3 34-4-4-4-55 5 5554-4-4-4-33 33 3 3 3 33" 

130 REM lllll I ■! hl.l ■!.! 

14-0 LET C $ = "773399: : ; <<<<= = = => 

>????66 ggfl RBBBBCCCC&DE EFFG" 

160 lIt if?^^^^^636064606S 
6061606563 60616064-606 50607" 

165 REM 


Figura 108 (continua) 
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166 LET p$="00000066666666666&6 
6666666666 666666666660Q0B 0“ 

170 REM 1 
180 LET X $ = "; 

* * * & * % & & % - 
190 rem ilÈ3l39ÌBU9£i 

200 LET t$="717171?1717171?1?17 

l'?l'?l'>l'?l'>Ì9 1^1'7 1'7 1'?l'?1717 

! 10 FOR p =1 TO LÉN X $ 



220 PRINT 
C $ (p ) -4-8; 


RT CODE 
INK URL 


l. 


URL I 

P $ C P J ; 

X $ ( p ) 


230 

PRUSE 

CODE 

t $ ( 

24-8 

NEXT 

P 



250 

STOP 




1000 

REM - 

-- 

— 

— 

1010 

REM 

r o u tine •=• 

1020 

REM 

e v e n 

t ìj 

a L i 

1030 

REM 

s p e c 

ì a 

l i 

104-0 

REM - 

— 

— 

— 

1050 

DRTR 

14.0 . 

31 

, 50 

1,14-0 




1052 

LET U 

= P E E K 

d w & 

3676 





1054. 

FOR a 

= U T O 

U + 7 

1056 

RERD 

d : F'OKE a 

1060 

PRPER 

6 : 

INK 1 

1070 

PRINT 

RT 

1 , 

10.; 

1080 

PRINT 

RT 

2 , 

IO; 

1090 

PRINT 

RT 

3 

IO; 

1100 

PRINT 

RT 

4- , 

IO; 

1110 

PRINT 

RT 


10 ; 

1120 

PRINT 

RT 

6 .■ 

10; 

1130 

PRINT 

RT 

7* . 

10; 

2222 

RETURN 




'.R 

lP 


— 4-8 . CODE 
PAPER 


per carica 
caratteri 
o altro 


252 252,50,8 
, 5+256*PEEK 2 


d: NEXT a 



Figura 108 



iiasias 

COD 

BLACK 

s e c . 

0 

BLUE 

. 02 

1 

RED 

. 04- 

£ 

MAGENT 

. 06 

3 

GREEN 

. ©8 

4- 

CYAN 

0.1 

5 

YEL-LOU 

O . 12 

6 

UHITE 

O . 14- 

—i 


0.16 

0.18 

O . 2 _ 

0 « c! c : 

9 


ICQLQMNRBL INERÌ 


© 

0 

i 

1 

ts 

2; 

4- 

4- 

5 

5 

6 


9 

Q 

10 

10 

1 1 

1 1 
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0 . 24- 

< 

12 

'! ■! 

0.26 

— 

13 

•1 

O . 28 


14 

4 

-4. M- 

0.3 


15 

j. 5 

0.32 

\Zt 

iS 

16 

0.3 4 

fi 

1 "7* 

11. i- 

0.3 6 

E 

15 

1 O 

0 . 3 o 

c 

19 

19 

0.4 

D 

20 

2® 

0.42 

E 

2 1 

o -i 

0.44 

F 

2 S 


0.46 

G 

" 


0.46 

M 

si 


0 . 5 

I 

e; 


0 . 52 

. 1 

ir: O 


0 . 54 

K 

ir! ~7 


0.56 

L 



0 . 5 3 

r-i 

SS 


0 . 6 

M 

•30 


0 . 62 

n 

' 1 


0.64 

P 



0 . 66 

0 



0.6 3 

fi 



0 . ? 




0 . 72 

T 



0 . 74 

Ij 



0.76 

i, i 



0.76 

Ù 



0 • 6 

X 
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MUSICA ED EFFETTI SONORI 


MINIORGANO 

Nonostante alcune limitazioni, dovute al fatto che lo Spectrum non possiede un 
integrato indipendente per la generazione dei suoni ma è lo Z80 che li produce, è 
possibile realizzare con il programma di figura 110 un Miniorgano a 5 ottave (61 no¬ 
te) che usa 18 dei 40 tasti dello Spectrum. 

Nel programma è utilizzata una routine in linguaggio macchina lunga 89 Bytes 
che serve a ridurre al minimo il tempo di lettura della tastiera ed il calcolo del codice 
nota dell’istruzione BEEP. La funzione dei tasti usati dal Miniorgano è la seguente; 


Tasto 

Funzione 

1 

prima ottava 

2 

seconda ottava 

3 

terza ottava 

4 

quarta ottava 

5 

quinta ottava 

Z 

DO 

s 

DO# 

X 

RE 

D 

RE# 

C 

MI 

V 

FA 

G 

FA# 

B 

SOL 

H 

SOL# 

N 

LA 

J 

LA# 

M 

SI 

‘SYMBOL 

DO (ottava superiore) 

SHIFT’ 



Per usare il Miniorgano occorre premere contemporaneamente uno dei cinque ta¬ 
sti di ottava (T...‘5’) ed uno dei tredici tasti di nota (per es. ‘G’). 

Importante: Non inserire nel programma l’istruzione BORDER altrimenti non fun- 
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ziona; se si vuole un dato colore del bordo lo si può inserire con un comando diretto 
prima di scrivere il programma. 


IO REM 


■ mmi m —■ 

20 REM 

— 

— — 


— 

— 


99 PAPER 

0 : 

IN K 

6 : 

GL 6 


100 DATA 

1 

—n 

. ir! 5 3 . 

•i 

“7 -~i CT 

• 1 •— ‘-T- 1 

1.191.24 

i*‘ ,i 1 .=! «•' .i ir! 4- i*‘ 

, 19 1 

.i i=! 3 9 .i 

1ir* 

i*‘ ,i c O 

9 . 253 , 23 

9,254,239 

. £ 

54 

, 24 7 , 

25 

3,25 

1 , 254 , 25 

jl ir! FI , 2 Fi 

, £ 

5 4 

pr, ; 




il© DATA 


3 , 

0,0,6 

, i 

3 . 12 

6.219,25 

4,35.190 i 

40 

.i 5 

,35,16, 

2 46 , 

24,239.5 

,197,62,2 

4 7 

. 2 

19,25 

4 , 

47,7 

9,60,254 

,1.40.245 

. 6 

F 





1. ir:! 0 DhTH 

& 

ir! ,i 

1,2 4 , 

4 , 

165 , 

40 , 3 , 135 

.. 16 , 250 , 6 

2 , 

F 

144 , 1 

”7 

12 , O 

,33,0,0, 

25,61 , 32 , 

■ z> ,» S 0 1 

£ Fi 

•“i 

193 . 7 

C, » 

6,0, 

9 , 229 , 19 

130 LET 

Li — 

PEEK 23 

F. 7 

5+25 

6+PEEK 2 

3 5 7 6 







140 FOR 

•s = 

U 

TO U + 

c* o 



150 READ 

d 


POKE 

■d ,« 

d : NEXT a 

160 POKE 

( 

u + 

£8) , INT 

( u ,••• 

2 5 6 ) 

17© POKE 

c u + 

27) . Li 

- C I NT 

( u 2 5 6 ) ) 

*256 







ISO BEEP 

0 

• O 

, USR 

( i j + £ 5 ) 

— 3 3 : G G 


Figura 110 


GENERATORE DI MUSICA CASUALE - 130 NOTE 

Il programma di Figura 111 produce musica utilizzando in modo casuale le cento- 
trenta note diverse dello Spectrum. All’Inizio occorre inserire la durata richiesta per 
ogni nota. 


IO REM 
20 REM 

3© REM - 

39 INPUT "inserire durata nota 
C 0.1 - - 1 ) " .1 d : IF d < . 1 OR d > 1 TH 


N G 

3 TO 

99 


100 

LET 

f =0 


110 

FOR 

n=l TO 1000 


120 

LET 

r =INT (RND*20) -10 


130 

LET 

f = f + r 


14© 

IF f 

>69 THEN LET f = f- 

20 

145 

IF f 

<—60 THEN LET f = f 

+ 20 

15G 

B E E P 

d , f 


16© 

NEXT 

n 




Figura 111 
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METRONOMO 

Il Metronomo (Figura 112) può produrre da 60 a 300 battute al minuto a seconda 
del valore inserito all’inizio nella richiesta di Input fatta dal programma. 


IO REM IBI=«ÌSraglMlgM 

SO REM - 

ÌOO INPUT "Inserire N" ba t 1.u t e 
al minuto (60--300) e premere 
ENTER ";b 

110 IF b <60 OR b >3O0 THEN GO TO 
100 

ISO LET t=300O/b-l 
130 BEEP .02,-15 
14-0 PAUSE t 
ISO GO TO 130 


Figura 112 


SCALE MUSICALI 

11 programma di Figura 113 produce, continuamente le scale musicali alternativa- 
mente a salire ed a scendere. AH’inizio può essere stabilita la durata delle note delle 
scale. 


10 REM 

SO REM - 

ÌOO INPUT "inserire durata note 
(O.l--2) ";d: IF d<.1 OR d>2 TH 

EN GO TO ÌOO 
110 DIM a$(12,4) 

120 LET a $ ( 1 ) =”DO " : LET a$(2) 
=”DO« ": LET a$(3) ="RE ": LET a 

$(4) ="RE8 LET a $ (5) ="MI ": L 

ET a $ (6) ="F fl " : LET a$(7) ="FA8 

": LET a*(8)="SOL ": LET a$(9)=" 


SOL»" 

LET a $ ( IO) ="LA 

LET 

a $ 

i i 

( 11) = 

" Lfitt " : LET a $ ( 12) = 

"SI 

130 

FOR O = -5 TO 4- 



140 

FOR n=0 TO 11 



ISO 

INK 6: PRINT RT IO, 

10.; a $ 

•: n + 

1) ; " 

Ottava o+5;“ 



160 

BEEP d ,O *12 +n 



170 

NEXT n: NEXT O 



ISO 

FOR 0=4- TO -5 STEP 

-1 


190 

FOR n =11 TO O STEP 

-1 


200 

INK 5: PRINT PT IO, 

10 ; a $ ( n + 

1 ) ; " 

011 a v a "ì o + 5i " 



210 

BEEP d ,0*12 +n 



220 

NEXT ri : NEXT 0 



230 

G O T O 130 




Figura 113 
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PROGRAMMA UNIVERSALE PER MUSICA 


Suonare con il Computer il vostro pezzo musicale preferito può voler dire realizza¬ 
re un programma con, nel caso dello Spectrum, centinaia di linee con istruzioni 
BEEP. 

Tali istruzioni possono essere compattate usando il programma di Figura 114 nel 
quale le note sono inserite in codice in una stringa (a$). Ad ogni nota tra la ‘-36’ e la 
‘+56’ corrisponede un carattere ASCI I da inserire nella stringa a$ secondo la Tabel¬ 
la 3. 

In a$ le Pause sono inserite con 

La durata delle note è stabilita all’inizio del programma dal valore (in secondi) in¬ 
serito nella variabile ‘d’ (linea 99) ; se nel pezzo musicale occorrono a volte note di 
durata maggiore basta inserire nella stringa più codici della stessa nota di seguito. 


10 

REM 

20 

REM 

3© 

REM 

99 

LET 

in s 1 

e c 0 n d 

100 

REM 

1 10 

LET 

6789 

: j = > 

RSTUUUXYZ 

r £ t u 1 

\t 1 . 1.1 X M Z 

120 

FGR 

130 

IF C 

E a $ 

c n T 0 

:i = 34 - 

THEN 

TO" 


14-0 

NEXT 

150 

FGR 

160 

IF C 

O TG 

200 

170 

BEEP 

160 

NEXT 

190 

STOP 

200 

POLIS 

210 

NEXT 


d =0 . 


REM durata note 


•TRINCO a 


EI 

y.& ' ()*+.-. /012345 
! ?@RBCDEFGH I• JKLMNOPO 
U 1.-.1 XV Z C \ D -T £ a b c d e f 9 h i J k- *. rii n o p 9 

V 1.1.1 X ’-l Z "l 1 > (n ‘ ' 

n =1 TG LEM a $ 

ODE a $ < n TO ) < 33 QR COD 
:i >127 OR CODE a$(n TG 
PRINT "NOTO " n " ERRO 


ri 

n = 1 


TG LEN 


a £ 

1 )=33 THEN G 


d , C G D E a $ ( ri 
n 


ri 


TG )-71 


Figura 114 




PAUSO 

D O 2 — 3 6 

DO» 2 -35 
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■_H 0'! Ti O H Q Z 3 r 7 - C.H I G3 TI HI O O 031< v il a - • •• i£i CO -J iJi cn RO Hj pQ\« I •- + :+: ~ ije- v 


I, .1 

ù 


Y 



c 


RE 

2 

REO 

•”l 

MI 

2 

FR 

2 

FR8 

2 

S O L 

*5• 

SOL 8 

2 

LR 

o 

LR8 

2 

•5 I 


DO 

w 

D08 

3 

RE 

w 1 

RE8 

3 

M I 

3 

FR 

3 

FR8 

3 

SOL 

•‘Sj 

SOL 8 

3 

L R 

3 

LR8 

w* 

S I 

3 

D O 

4 

D O 8 

4 

RE 

4 . 

RE8 

4 

M I 

4 

FR 

4 

FR8 

4 

•5' O L 

4 

SOL 8 

4" 

LR 

4- 

LR8 

4- 

SI 

4. 

D O 

cr 

D O 8 

es; 

RE 

0 

RE8 

FI 

M I 

FI 

F R 

C-. 

FR8 

0 

S 0 L 

5 

5 O L 8 

5 

LR 

ci; 

LR8 

F. 

5 I 

5 

D O 

Fi 

D O 8 

E« 

RE 

F. 

RE 8 

E« 

M I 

6 

rfl 

0 

FR8 

F» 

SOL 


SOL 8 

E, 

L...R 

S 


-34 



-3 1 
-3 0 
— 29 



.... i 

-20 

-19 

- 13 

- 17 
-16 
- 15 
-14- 

- 13 

- 12 
-11 
-10 


-4 



0 

1 

4 

6 

6 


10 
1. 1 


1. 3 
3 4 



' 

J» t 1 
16 
19 
2 0 
2 -1 
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1 

t 

r 

a 

b 


LR» 
S I 
D O 
D O » 
RE 
RE» 


C 

d 

£ 

f 

g 

h 

i 

J 

K 

i. 

m 

n 

ij 

P 

q 

r 

t 

u 

v 

1.1.1 

x 

y 

z 

•l 

I 

j- 

•V 

© 


MI 

Ffl 

FR» 

SOL 

SOL» 

LR 

LR» 

SI 

D O 

D O » 

RE 

RE» 

MI 


PR 

FR» 

5 O L 

SOL» 

LR 

LR» 

SI 

DO 

DO» 

RE 

RE» 

MI 

FR 

FR» 

SOL 

SOL» 


8 


8 



9 

9 

9 

9 


9 

9 

9 


£4. 

■-< CT 



4-0 
4- 1 
4- £ 
4-3 
4 4- 
45 
4 6 
47 
4 3 
4 9 

50 

51 


8 w• 

54 

55 
SS 
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RED ALERT (Figura 115) 


1000 

REM 

tasi 

1010 

REM - 


1020 

FOR d 

= 1 T 

1030 

FOR f 

= 32 

1040 

BEEP 

. 015 

1050 

NEXT 

f 

1060 

PAUSE 

6 

1070 

NEXT 

d 


O IO 
TO 56 


Figura 115 
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OROLOGIO (Figura 116) 


1000 

REM 

[-1=1-1 «-Ir» «-] 

1010 

REM -- 

1020 

FOR n = 

1 TO 60 

10 30 

BEEP . 

©1,-5 

104-0 

PROSE 

24- 

1050 

BEEP . 

01,-12 

1060 

PROSE 

24- 

1070 

NEXT n 



Figura 116 


MITRA (Figura 117) 


1000 REM IS»«a=I=1 

1010 REM - 

1020 POR n =1 TO IO 

1030 FOR C =1 TO 3 + 1NT CRND*10) 

104-0 BEEP .02,-24- 

1050 FOR t=l TO 5: NEXT +. 

1060 NEXT C 

1070 PAUSE 20+1NT (RND*30) 

10S0 NEXT n 

Figura 117 


SIRENA AMERICANA (Figura 118) 


1000 

REM 

— Il 1 II 

1010 

REM - 

-- 


1020 

FOR a 

=1 TO 100 

1030 

BEEP 

.01, 

12 

104-0 

BEEP 

.01, 

13 

1050 

BEEP 

. 01 , 

14- 

1060 

BEEP 

. 01 , 

15 

1070 

BEEP 

.01, 

16 

1060 

BEEP 

.01, 

17 

1090 

BEEP 

.01, 

16 

1100 

BEEP 

.01, 

19 

1 1 10 

BEEP 

,01, 

20 

1120 

BEEP 

. 01 , 

19 

1130 

BEEP 

. 01 , 

16 

114-0 

BEEP 

.01, 

17 

1150 

BEEP 

.01, 

16 

1160 

BEEP 

.01, 

15 

1170 

BEEP 

.01, 

14- 

USO 

BEEP 

.01, 

13 

1190 

NEXT 

« 





Figura 118 
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SIRENA A 2 TONI (Figura 119) 


1000 

1010 

1020 

1030 

104-0 

1050 


PCM 

REM - 

FOR a =1 T O 30 
BEEP .5., 2: REM tono 1 
EEEP .5,7: REM tono 2 
NEXT a 


Figura 119 


SIRENA MULTITONO (Figuralo) 


1000 

REM 

■SIreHr MUL 

mi m 

1010 

1020 

REM - 

FOR ■= 

= 1 TO 

3© 


-- 

1030 

BEEP 

.1,-7 

REM 

t o n o 

1 

104.0 

BEEP 

.1,-4- 

REM 

t o n o 

Im. 

1050 

BEEP 

.1,2 

REM 

t. o n o 


1060 

BEEP 

.1,12 

REM 

tono 

4. 

1070 

BEEP 

.1.2 

REM 

t o n o 

3 

1080 

1020 

BEEP 

NEXT 

.1,-4. 

a 

REM 

t o n o 

2 

1100 

REM 

tanche 

RiU' d 

i 4- t 

o n i ) 


Figura 120 


SQUILLO DEL TELEFONO (Figuraci) 


1000 

1010 

1020 

1030 

104-0 

1050 

1060 

1070 

1080 


REM 
REM - 
FOR n =1 TO 8 
FOR f=l TO 4.0 
BEEP .02 t 25 
FOR t=l TO 1: NEXT 
NEXT f 
PAUSE 80 
NEXT n 


Figura 121 
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SEGNALE TELEFONICO DI LINEA LIBERA (Figura 122) 


1000 rem m-irrsn-Mn-wigrim 


[DI LINER LIBERA 


1020 REM - 

1030 F OR n =1 TO IO 
1040 EEEP 1.4,1B 
1050 PAUSE 70 
1060 NE'XT n 


Figura 122 


SEGNALE TELEFONICO DI LINEA OCCUPATA (Figura 123) 

1000 REM 
1010 REM 
1020 REM 

1030 FOR n =1 TO 30 
1040 EìEEP .2,14 
1050 PAUSE 10 
1060 NEXT n 



Figura 123 


GENERATORE DI SUONI CASUALI (Figura 124) 


1000 

1010 

1020 

1030 

1040 

1050 

1060 



REM --- 

FOR n =1 TO 1000 

LET t=10: REM O t=5 O t =20 
EìEEP RND/t , RND*60-20 
NEXT n 


Figura 124 


DIN-DON (Figura 125) 


1000 rem i^Manamai 
1010 rem - 

1020 FOR n =1 TO 10 
103© BEEP .02,23 
1040 PAUSE 5 
1050 BEEP .3,19 
1060 PAUSE 50 
1070 NEXT n 


Figura 125 
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GRILLI (Figura 126). 


1000 rem wawm 

1010 REM - 

1020 FOR n =1 TO 50 

1030 FOR k =1 TO 3 

104-0 BEEP .02,36 

1050 FOR t=l TO 1: MEXT t 

1060 NEXT k 

1070 PRUSE 6 

1080 NEXT n 


Figura 126 
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GIOCHI 


CACCIA AL SOMMERGIBILE 

Il gioco (F'gura 127) consiste nel trovare un sommergibile muovendo tramite i ta¬ 
sti 5, 6, 7, 8 un simbolo che rappresenta la nave o l’aereo antisommergibile. 

Naturalmente finché la nave non gli passa sopra il sommergibile viaggia nascosto 
sottacqua spostandosi casualmente in tutte le direzioni, il cacciatore ha però la pos¬ 
sibilità di scovarlo seguendo il suono di una sorta di ‘SONAR’ prodotto dal computer. 

Infatti tale suono AUMENTA di frequenza se ci si stà avvicinando e diminuisce se 
ci si stà allontanando o se il sommergibile si sposta in senso opposto. 

Appena la nave o aereo trova il sommergibile, questo appare (Figura 128) insie¬ 
me ad una scritta che indica in quante mosse ci si è riusciti. 

Ovviamente ogni volta che si inizia il gioco la nave parte dallo stesso angolo ed il 
sommergibile viene nascosto nello stesso punto. 

Il gioco può essere reso più difficile facendo spostare più spesso il sommergibile 
sostituendo la linea 310 con: 

310 GO SUB 350 

Un ulteriore difficoltà può essere introdotta facendo spostare il sommergibile di 
spazi più ampi, sostituendo le linee 350 e 360 con: 

350 LET k=INT (RND*5) -2 
360 LET h=INT (RND*5) -2 

io rem i^i i' 

20 REM - 

99 BOROER O: PARER 1: INK 7: C 
LS 


100 

DOTO 1,130,76, 

48,4,28,50,19 

3,0, 

48 , 16,46,56,252 

, 255 , O 

110 

LET U = P E E K 236 

75 +256 *PEEK 2 

3676 



111 

F O R ih = ij T O u + 1 

5 

112 

•READ g : POKE W 

,g: NEXT w 

120 

FOR 2=1 TQ 176 


130 

PP.INT CHR $ 144 

CHR$ 144.; CHR 

$ 14.4. : CHR $ 144 : 


14© 

NEXT S 


ISO 

LET 1. =21: LET 

c =0 

160 

LET X =20 : LET 

y =8 


Figura 127 (continua) 
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170 

180 

188 

190 

4- 

£00 
LET 
210 
LET 
£ £ 0 
LET 
£30 
LET 
£4-0 


LET ni =0 : LET f = -60 
INK 4.: PRIMT HT I. , C ; 

BEEP 0.3 ,f 

INK 7: PRINT hT Le,CHR$ 


14 - 


fiND INK EY$ = "5" 


IF C > 0 
e = C - 1 

IF L <£ 1 HND IN KE Y * = "6 

l = l. + 1 

IF i. > 0 fi N D IN K E Y $ = " 7 " 
I. = L - 1 

IF C i 3 1 fi N D I N K E Y $ = " := 

C = C -t- 1 

IF C O D E IN K E Y $ > 5 £ fi N C 
I N KEY $<57 THE N i jO T U J00 

£50 IF 1. ='-l fiND C -X THEN 
70 
£60 
£70 


fi u T G 1 8 0 
INK 6: PRINT 


THE N 
THE N 
THE N 
T H E N 
CO DE 
G O T O £ 

C H R % 14- 


: 7 7 BEEP 


£ .. - 3 O 

Figura 127 (continua) 
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26© INK 4: PRINT flT S.,0; "SOMMER 
GIBILE TROUflTO IN " ; RT 1.0;rii;’’ T 
ENTRTIUI " 


290 

PAUSE SO: 5 

T U P 



300 

LET m = ni+1 




31© 

IF RND<0.5 

THEN 

GO 

SUB 350 

320 

’i 

LET j=53-RE 

S < y 

- l. ) 

-RB5 (C — x 

330 

LET f = -55 + .i 

2 



340 

i“ n t n p f. 0 




350 

LET K=INT « 

RND * 

3 .i — 

1 

360 

LET h=INT ( 

RND * 

3 .1 — 

1 

3 70 

IF x+t <=31 

RND 

* + K 

•> =0 THEN 

LET X 

= X + fi 




3 S 0 

IF y+ h <=21 

RND 

y +h 

>=0 THEN 

LET '-l 

= '4 + Fi 



390 

RETURN 





Figura 127 


TIRO ALLA FUNE 

Altro gioco è il Tiro alla Fune (Figura 129) con il quale devono giocare due perso¬ 
ne. 

All’Inizio appaiono sullo schermo due omini (Figura 130) con una fune. 

L’omino di sinistra è Giallo e viene comandato dal tasto 'A' mentre l’omino di de¬ 
stra è Bianco e viene comandato dal tasto ’L’. Ogni volta che appare il rettangolo 
rosso al centro dello schermo il giocatore che preme per primo il proprio tasto ha la 
possibilità di tirare i due uomini dalla propria parte, se però uno dei giocatori preme il 
proprio tasto prima che appaia il rettangolo, i due omini si sposteranno nel senso op¬ 
posto favorendo l’avversario. 

Il gioco continua finché uno dei due giocatori non riesce a trascinare l’avversario 
completamente nella propria zona (Figura 131). 

È importante durante il gioco che i giocatori non premano tasti diversi da ‘A’ e ’L’. 

Il tempo di apparizione del rettangolo rosso ed il ritardo tra una apparizione e l’al¬ 
tra sono casuali e vengono stabiliti rispettivamente dalle linee 290 e 280 che posso¬ 
no essere eventualmente modificate per rendere il gioco più difficile. 

Con lè linee attuali il tempo di apparizione ed il ritardo sono rispettivamente di 
200-600 msec. e di 1-3 sec. 

Importante; Non inserire in questo programma l'istruzione BORDER altrimenti 
non funziona più. Se si vuole un colore per il bordo lo si può stabilire con un coman¬ 
do diretto prima di inserire il programma. 
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10 

REM 

■ TIRO ALL 

H FU 

1 II M 

20 

REM - 


-- 


30 

REM 

tasto S = 

sin 

istra 

33 

40 

REM 

REM 

tasto 8 = 

d 

t. i“ a 

50 

REM - 

— 


99 

100 

PAPER 

DATA 

©: INK 7 

46,104,112 

, 32 , 

112,1 


115 7S 112.. 12O , 72,76.196, 132,132 
231 

' 1 1© DRTR 12,22,14,4- , 14- . 62.206,1 
14- 14. , 30,16 SO , 35,33 33,23 1 , O , O 

0,0,0,0,255,0 

120 DATO 33.0 . SO . 36.35.94- . 35.6 , 
O , 7S , 33,120,92,54- , O , 62,189,219,2 
54-,254- ,252,200 , 254- , 254- , 4-0,73 
130 DATA 254,253,40.38.122,190, 
32,237,33,47,39,54,66,35,54,66,3 
3,120,92,54,0,62,13 9,219,254,254 
,252,200,254,254,40,9,254,253,40 
,36,123,190,32,237 
14© DATA 201,0,6,64,33,1,64,229 
,209,27,197,1,31,0,23 7,176,4 3,5 4 


, 0,19 

,35,35 

,193,16,241, 

13 , 33,2,S 

0,113 

. 201 



Ì50 

D AT A 0 

, 0 , 6 , 64 , 33,2 

54,71,229 

, S09 , 

19,197 

, 1,31,0,237, 

18 4- , 35 , 54 

, 0 , 27 

,43,43 

. 193 , 16 . 241 , 

1 i — ,i .i i=! ,i & 

© , Ì 13 

, 2© ì 



160 

LET U = 

P E E K 2 36 75+2 

56+PEEK 2 

3676 




170 

FOR a = 

U T O U+167 


100 

READ d 

POKE a , d : 

NEXT a 

190 

FOR 1. = 

O T O 7 


200 

PRINT 

AT L . 0 ; INK 

6; BRIGHT 

1.; " 


* ' • 

INK 7 ; BR 

IGHT 

1" 


: REM 

16 spazi + 

16 s p a z i 


210 

NEXT L 



2 2 0 

PRINT 

HT c* i 0 i IN K 

1; BRIGHT 


1^ 


222 

PRINT AT 9, 

15; INK 0; 

• • mg »<. p| 

16 

,0; INK 0;"■ 

1 


23 0 

POKE 20432, 

9 


24© 

PRINT AT 6. 

3; INK 6; 

BRIGHT 

1.; C 

HR $ 144+CHRJ 

143+ CH R $ 

14S+CH 


R $ 148+CHR$ 148+CHR$ 148+CHR* 14 

3 +CHR$ 143 

250 PRINT AT 7,3.; INK 6.; BRIGHT 
1;CHR$ 145 

26 0 PRINT AT 6,16.; INK 7; BRIGH 

T l;CHR$ 143+CHR$ 143+CHR$ 143+C 

HR$ 146 +CHR $ 140 + CHR$ 140+CHR$ 1 

43+CHR$ 146 

270 PRINT AT 7.23; INK 7; BRIGH 

T l;CHR4 147 

Figura 129 (continua) 
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2 8 0 

PO HE 2 

0 4-80 . 

INT (RND 

+100)+50 


290 

P O K E 2 

04-8 1 , 

INT (RND 

*20 1 

+ 10 


30 0 

GO :=.l IB 

IJ 5 P' 

C ij + 4- 0 ) * 5 

00 



3 10 

P 01-;. E 2 

^ o . J. 1 , 

0 : POKE 

5 2 3 

2,0 


3 2 0 

R ri T i i 

2 8 0 





500 

PRINT 

RT 2 . 

1. INK 6 

; ' ' U i 

n c e 

i 

1 R 

IflLLO" 






510 

PRINT 

RT 12: 

, 2 ; IM K 

5 " P 

r t: rii iì 

f 

nTF 

r c o ri 

i ì ri ij ire" 




520 

IN P UT 

e- i 





5 3 0 

R LI N 






4- 

R ETU R N 






500 

PRINT 

hT 2 

16; 1N K 

7 , " 

i ri C >=: 


i 1. 

E: IHNC□ 1 ' 





c 

600 

PRINT 

RT 12 

2 , IN h: 

5 ' * P 

r iì ni €: 


IENTERI 


8700 INPUT t $ 

S 6 S S R Li N 

Figura 129 



Figura 130 



Figura 131 
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ROULETTE 

Il programma (Figura 132) realizza una Roulette completa (Figura 133) con tutti i 
numeri ed il sonoro.La richiesta di un numero avviene premendo ENTER. 


10 REM | 

20 REM - 

100 BORDER 
110 INK 4-: 




1 : PAPER 0: CLS 
PRINT RT 6,8.1 


ROUL 


111 RANDOMI2E 
120 DIM a $(4,100). 

13© LET b$="01246S: <>©BDFHULMNN 
NMLJHFDB®> < : 8642100" 

133 LET a$(l)=b$+b$+b$ 

140 LET C $ = "375321111111123579 ; 
= 7 R C D E E E E E E E E D C fl '? = ; " 


144 

LET 

a $ (2) =c$ + c$ + c$ 

150 

LET 

d$="2020202020202020200 

2020 

20202 

0202020200" 

155 

LET 

a $ ( 3 ) = d $ + d $ + d $ 

160 

LET 

a $ ( 4 ) = " P7C4E2 IRR6K =T ; NS 

G : 05 

H0O1D 

> G9FBM7L < S3J0" 

170 

FOR 

d = 1 TO 38 

180 

LET 

C =CODE a $ ( 1,d ) -48 

190 

LET 

L = C0DE a $ (2 .d ) -48 

200 

LET 

i=URL a$(3,d) 

210 

LET 

ri = CODE a $ ( 4 , d ) — 48 

220 

IF i 

=2 THEN PRINT RT l,Cj I 


PAPER 


NK 2 : n 
230 IF 
RT l , c ; 

240 IF 
T l. 

250 ne;:t d 

260 PRINT RT 
© ; "O " 

270 PRINT 
00 " 

_INK 6 
ere r— ’ 
e " 

220 
3O0 


i =0 flND n <10 THEN PRINT 
PRPER 7; INK 0 ;n;" " 

i =0 RND n >9 THEN PRINT R 


K 


0 ; 

>80 


RT 


INK 0 n 

11,0; PRPER 4.; INK 
11,30, PRPER 4.; IN 


ENTER 


PRINT RT 12,15;"Prem 
RT 13,15;"per iniziar 


310 
320 
330 
3 3 3 
340 


INPUT e $ 

PRINT RT 12.15:" 

RT 1 , 1R ; " 

FOR X il" TO 40 + INT ( RND *60 ). 

LET C =CODE a$ (1 ,X) -4 8 

LET l. — CODE a $ ( 2 , X ) -48 

BEEP .1,0 
LET i =',.'RL a$(3. , X) 


Figura 132 (continua) 
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350 LET K$=SCREEN$ £1.0 : LET ..i 
$ sSCREEN $ ( l. , C+1J: LET K $ = K. $ + ..i $ 


360 

LET p 

= INT ATTR 

( l , C J ,' - S 


370 

PRINT 

AT L . c ; 

PAPER O; 

INK 

6 ; k $ 

:'77 

PAUSE 

3 



3S0 

PRINT 

AT l , c 

PAPER P; 

INK 

i V * 
3 5 O 
4-0O 

NEXT 

PRINT 

AT Oc; 

FLASH 1; 

PAPE 

R P : 
4. IO 

INK i 
INK 6 

: RS 

PRINT AT 12,15.;* 

* P r e m 

ere | 

E NT E RH 

;AT 13,15 

; "per contino 

are" 

420 

43© 

INPUT 

FLASH 

e $ 

0: GO TO 

10© 



Figura 132 



Figura 133 
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CAMPO MINATO 

Questo programma (Figura 134) simula un campo in cui vi sono 20 mine nasco¬ 
ste casualmente. Il giocatore deve spostare, usando i tasti 5, 6, 7, 8, l’omino dalla 
posizione di partenza nell’angolo in basso a sinistra alla posizione di arrivo nell’an¬ 
golo in alto a destra senza incappare in una delle mine nascoste. Per attraversare il 
campo minato senza danni, il giocatore può contare sul proprio intuito e sulla pro¬ 
pria fortuna, se riesce appare sul video la scritta 'SALVO !!!’. Aggiungendo la linea 
245 (Figura 135) e facendo girare il programma, si può avere un’idea di come ven¬ 
gono disposte le mine sul campo (Figura 136). Naturalmente durante il gioco le mi¬ 
ne devono essere nascoste per cui si deve prima togliere dal programma la linea 
245. 

Ora con le mine nascoste può capitare di terminare il gioco senza danno (Figura 

137) oppure può succedere prima dell’arrivo di passare su una delle mine (Figura 

138) . 

Il numero delle mine può essere diminuito o aumentato per rendere più facile o 
più c'Wcile il gioco. Se per esempio si vogliono nascondere 12 mine invece di 20 ba¬ 
sta modificare il contenuto delle linee 190, 210 e 400, sostituendo, all’interno delle 
linee stesse, tutti i 20 con dei 12. 


io rem wasiMaKaiam 

20 REM - 

30 LET U=256*PEEK 23676+PEEK 2 
3675 

4-O FOR a = U TO u +31: READ W : PO 
KE a,W: NEXT a 

SO DATA 170,85,170,85,170,85,1 
70 ,i SS ., S5 , 170 85 ., 1 "7O .. 85 1 7O ., 85,17" 
O 56,56 16,254- , 186,4-0,40,238,0,1 

6>, 6* 8,16,146,56,124,25 4 

100 BORDER O: PRPER O: CLS 
110 F OP a =1 T O 88 

120 INK 4: PRIMT CHR$ 144jCHR$ 
145; CHR$ 144 ; CHR $ 145;CHR$ 144; C 

HR $ 14 5; C H R $ 144; CHR$ 145; 

130 NEXT a 
140 PRINT 
ISO LET 1=21 
160 LET C=0 

170 INK 6: PRINT AT 0,31;"E" 

180 INK 2: PRINT AT L,C;"S" 

188 P AUSE 30 
190 DIM m (20,2) 

200 RANDOMIZE 


Figura 134 (continua) 
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cn cn cn cn p co p p z p p co 0 co r « m co r co ni co co co co no no no no no no no no no no 
p co no p p 0 co no pocq co m -• j H cn m cn H p co no 0 0 00 -j *01 cn 0 p co no p 
000 00 000000 ©H© ©Ho 00000 0000 0000 


FOR a =1 TO 20 
L ET Q = I NT C 3 2 PR N D 0 
LET f=INT (22+R N D ) 

IF g <6 AND f >15 THEN GO TO 

L ET no C a .. 10 = f 
L ET m ( a , 2 0 = g 
NEXT a 

INK 6: PRINT RT L , C CHR $ 14- 

BEEP .1,30 

INK O: PRINT RT l,c;T 
LET X = I. 

LET y= C 

IF 03 RND INKEY $ = " 5 ” THEN 

C = C — 1 

IF L <21 RND INKEY$ = "6" THEN 
C = l. + 1 

IF i. O RND INKEY$ = "7" THEN 

C = L - 1 

IF C <31 RND INKEY$ = “S" THEN 
C = C + 1 

IF X<|L OR y < > C THEN GO TO 

G O T O 2 3 O 
FOR a=l TO 20 

IF no C a ,10=C R N D no c a 2 0 = c T H 
o TO 4.5 0 
NEXT a 

IF l. =0 R N£> c = 31 THEN GO TO 

G O T O 2 S 0 

INK 7: PRINT RT L,c;CHR$ 14- 


BEEP 2, -4.0: STOP 
PRINT RT 0,31; CHR $ 14-6 

INK 6: PRINT RT 8,O;"■ 


Figura 134 


24-5 INK 5: PRINT RT f,g.;CMR$ 14- 
7 


Figura 135 


133 





134 
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Figura 138 
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FLIPPER GIAPPONESE 


In questo 'Flipper Giapponese’ (Figura 139), trenta palline cadono dall’alto attra¬ 
verso una serie di chiodini, finendo in modo casuale su delle basi che indicano dei 
punteggi diversi, punteggi che vengono automaticamente sommati al totale (Figura 
140). 

il numero delle palline può essere modificato cambiando la cifra ’30’ nella linea 
290. 




10 REM 
20 REM 

100 BORDER 4- : PAPER 1 : CLS 
110 DflTfi 24- , 24- , O , O ., O , O . O , O , O , O 
24- , 60,126,126,60,24- 
120 LET u = P E E K 2 3 6 7 5 + 2 5 6 * P E E K i 
3676 

130 FOR W —U TO U +15 
140 READ 2: POKE w,2: NEXT w 
150 INK 2: PRINT RT 2,10;"' 


160 LET a$=CHR$ 144.+CHRÌ 126 

170 FOR a=l TO 4: LET 3$ = 3$+3$: 
NEXT a 

160 LET a $ = *' " +3 $ 

190 FOR 3=0 TO 12 

200 INK 7: PRINT RT 4+a,13-a;a$ 
(1 TO (a +3 5 *2 + ir 
210 NEXT a 

220 INK 6: IN UERSE 1: PRINT RT 

i7,3; "2H2H1H ■■■■■■■ mimsa 

9 " 

230 PRINT RT 16,3 ; "9B5B©B2B1B ■ 

■ ■ |1|2H0|5|9 " 

24 0 P RINT RT 19,3;"9H0B0B5B2B&I 
5B6B6B2B5B0B0B9 ' ' 

244 INUERSE 0 


250 

INK 7 

: PRINT 

RT 

21,0;"Pre 

r e isigiarsi ■ ' 




26© 

INPUT 

LINE e 

$ 


2€>6> 

PRINT 

RT 21, 

16; ' 

■PUNTE GGIO 

270 

1 " 

PR I NT 

RT 2 1 , 

0; " 


2 60 
290 

LET £ 
FOR a 

= 0 

= 1 T O 3 

0 



300 LET I. =3: LET C=16 

310 INK 6: PRINT RT 3,3; a;" 

320 PRINT RT 2,16;CHR$ 145: PAH 
SE 2© : PRINT RT 2,16 ; " " ; RT 3,16 

; CHR$ 145; RT 3,16," " 

3 3 0 F O R f ~ 1 T O 13 
340 LET h=RND 


Figura 139 (continua) 
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p p mjo p n i p tu p io p+p + p + p q 0) w u o> o Q v o 
id co - j ■£■ 01 ai 01 o p ai rj p pi ai p tn © io co -jcr'tntnp u p 

00©iI'©0O 0 0100 0 ©©©©©OIOCHOP 


IF hi0,5 THEM LET h =-1 TF 
.5 THEN LET h=l 

IF h > =0 . E THEN LET h = 1 
PRINT RT l. . C : '• " 

LET i. = l. + 1 

PRINT RT L , •: +(-; Chft$ 14-5 
LET C=C+h 
BEEP 0.©5,-2© 

NEXT r 

IF C=15 OR C »17 THEN LET S = 

IF <1 =1 3 OR C*19 THEN LET S = 

IF C=ll OR C =21 THEN LET Z = 

IF c=9 OR c=£3 THEN LET S=£ 

IF C =7 OR C=£5 THEN LET Z =Z 

IF c=5 OR c=27 THEN LET s= £• 


IF c — 3 OR 


THEN LET Z =Z 


INK 7: PRINT RT £l,£6;s 
PAUSE IO: PRINT RT L.c: 
NEXT * 

500 GO TO £5© 


Figura 139 



iiiimiiiiiii 


Figura 140 
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TAVOLA DI NUMERI E LETTERE 


La prima parte del programma di Figura 141 disegna sul video una tavola di sedici 
caselle di cui quindici occupate dai numeri da 0 a 9 più le lettere da A a E. Subito do¬ 
po, le quindici caselle vengono mescolate per apparire alla fine sullo schermo nel 
modo indicato in Figura 142. 

A questo punto, usando i tasti 5,6, 7, 8 si possono spostare le varie caselle con i 
numeri e le lettere per cercare di ritornare alla disposizione iniziale (Figura 143) nel 
minor numero possibile di mosse. Durante il gioco o alla fine, ogni volta che si pre¬ 
me il tasto ‘p’, si può avere il numero aggiornato delle mosse fatte. 


IO REM 


[E LETTERE 


30 REM - 

99 BORDER 1: PAPER O: INK 2: C 


110 

DIM a $ (4 , 

4- j 




120 

LET a $ ( 1) 

= ' ' 

123 4 

1 1 


130 

l et a $ ( 2 :i 

_t • 

5 6 7 6 

• i 


14.0 

LET a $ (3) 

__ i • 

9 0 A E' 

' ' 


ISO 

LET a $ (4) 

= 4 * 

CD E 

' 1 


160 

PRINT RT 


^ . •« 


1 « 

170 

PRINT RT 

i ;! 

12 ; " 

1234 

1 1 

ISO 

PRINT RT 

5 .. 

12 ; " 

5676 

i i 

190 

PRINT RT 

6 .• 

12 ; ■■ 

90 AB 

i i 

200 

PRINT RT 

7 , 

12 " 

CDE 

1 • 

210 

PRINT RT 

.» 

12 ; " 


i i 

22 0 

LET p = 0 





23© 

LET 1. =4 





24 0 

LET C = 4 





244 

INK 6 





250 

FOR rn = l TG 

500 



260 

LET X =1 + INT 

( 4 * 

RND) 


270 

IF c<4 AND 

X = 1 

THEN G 

Ci LI E» 

3 6 O 






2 S0 

IF t >1 AND 

X — ìs! 

THEN G 

G S U E: 

440 






290 

IF 1. < 4 AND 

X = 3 

THEN GG SUB 

500 






300 

IF C >1 AND 

X = 4 

THEN GG SUB 

5 6> 0 






310 

NEXT rn 





2_ p, 

LET p = 0 





3 2 O 

IF INKEY* 

= ' ' 

p" THEN PRINT AT 

10 , 

S: INK 4; ' 

T O 

TALE 

" ; p ; ■ ■ 

MGSSE 

": INK 6 





3 3 0 

IF C i 4 AND 

INKE 

Y$="5" 

THEN 

G O S 

JB 3 60 





34 0 

IF l. > 1 AND 

INKE 

V" $ = " 6 " 

THEN 

GG S 

UB 440 





350 

IF 1. <4 AND 

INKE 

V $ = " 7 " 

THEN 


ou x r >. \ 
G O 5 U B EOO 


Figura 141 (continua) 
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THEN 


36 0 

IF C>1 AND 

INKEY$ 

=“S" THEN 

|“j 

UB 560 





37 0 

GQ TO 320 





3 8 0 

F'RINT FlT 

1. 

+ 3 . 

C + 13 

il il 

,i 

390 

LET a $ ( l. , 

r 

) =a 

$ ( , 

C + 1 i 

4-00 

LET a $ t l. , 

i“ 

+1 :i 

= ' ' • i 


4-10 

F'RINT AT 

1. 

+ 3 , 

C + 1 i=! 

a $ ( L , c 1 

4-20 

LET c = C + 1 





4-22 

LET p = p + 1 





4.30 

RETURN 





4-4-0 

F'RINT flT 

1. 

+1=' 

C + 1 2 

.ii ii 

4-50 

LET a $ ( l , 

c 

) =a 

$ < 1- - 

i , c :i 

4-60 

LET a $ C L - 

1 

, c :i 



4-70 

F'RINT FlT 

1 

+ 3 , 

C +12 

a $ ( i. c ;i 


460 LET l=l-l 
4-88 LET p=p+l 
4-90 RETURN 

500 F'RINT FlT I. +4-.C+12;" " 

si© let a $ < i , c ) =a$(i+i,c :i 

520 LET a $ ( l. + 1 , C ) = " " 


530 

F'RINT FlT 

1. +3 , C 

+12 ,1 a $ ( i. 

54.0 

LET 1=1+1 


544- 

LET p=p+l 



550 

RETURN 



560 

F'RINT FlT 

1. + 3 , C 

+ 11,; “ " 

570 

LET a $ ( L , 

c :• =a $ 

( i. , c - 1 > 

580 

LET a $ ( L , 

c — i :« = 

“ " 

590 

F'RINT FlT 

l +:“-; , r 

+ 12;a $ C L 

600 

LET C=C-1 


606 

LET p=p+l 



610 

RETURN 




Figura 141 



Figura 142 



TOTALE 508 MOSSE 
Figura 143 


139 











1 - 40 DADI 


L’ultimo programma di questo libro e dei giochi (Figura 144) disegna sullo sche¬ 
rno fino a quaranta dadi (Figura 145) insieme al punteggio totale. Il numero di dadi 
desiderato può essere inserito all'inizio, quando il programma lo richiede con un In¬ 
put. 


10 

20 

100 

-4-0 

120 

00 

150 

160 

170 

180 

190 

200 

210 

220 


REM 

REM - - 
INPUT 
e 

IF n < 1 


■goaau 


Inserire N 1 dadi 
premere ENTER 


1 - 

; n 

OR n >4-0 THEN GO TO 1 


BORDER 0 : 
LET K. =0 

LET y =0 

RRNDOMIZE 


PAPER O: CLS 


FOR L =0 TO 19 STEP 
FOR C=0 TO 31 STEP 
LET y = y +1 

LET X =1 + INT tRND*6) 
222 INK 2+INT (RND*6) 
230 PRINT RT l,c;CHR* 
14-0; CHR$ 140; CMR$ 14-0 
24-0 IF X=1 THEN PRINT 
CHR $ 133; CHR$ 143;CHR$ 


4. 

4- 


132; CHR $ 


1 à8< 


RT L + 1 , 
14-3; CHR 


OR X =3 THEN PRINT 
133; CHR$ 141;CHR$ 


OR X 

*1 • 


IF X =6 THEN PRINT RT I. +1 , 
133; CHR$ 141; CHR$ 14-1; CHR 


50 IF x =2 
l+l,c;CHR$ 

3; CHR $ 14-3 

260 IF X =4. 

L+l, Cj CHR $ 

3; CHR $ 14-1 

270 
CHR $ 

141 

IF X. =1 OR X ss3 
RT L +2, C ; CHR $ 

141; CHR $ 143 

IF X =2 OR X =4 
RT 1+2, C; C H R $ 

143;CHR$ 143 

IF X =1 THEN PRINT 
133;CHR$ 143;CHR$ 


=5 THEN PRINT 
CHR $ 14 1; CHR$ 


c ; 

$ 

RT 

14 

RT 

14 

c ; 

$ 


280 
RINT 
CHR $ 
290 
RINT 
CHR $ 
300 
CHR $ 
143 
310 
L +-3 

•T; 


OR X=5 THEN P 


OR 

13; 


: =6 THEN 

CHR $ 14 

RT I.+3, 
143 ; CHR 


P 

3 ; 


IF X =2 
c; CHR $ 
, CHR $ 141 

320 IF X = 4 
L +3, c; CHR $ 
3; CHR $ 141 


OR X=3 THEN PRINT 
133; C H R $ 143; C H R $ 

OR X=5 THEN PRINT 
133; CHR $ 141; CHR $ 


$ 

RT 

14 

RT 

14 


Figura 144 (continua) 
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330 IF X =6 THEN PRINT RT L +3,C.; 

CHR $ 133; CHR$ Ul; CHR$ 141, CHR$ 

14.1 

34© LET K. =K. +X 

350 IF U =n THEN GO TO 330 

360 NEXT C 

370 NEXT i. 

330 PRINT 

390 PRINT " IMK 6: PRINT 

n ; " dadi";" f* ri t e q q i o = " ; K. 

400 REM 


Figura 144 



Figura 145 
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La particolarità dei 77 programmi per lo Spectrum contenuti in questo libro' è’ ol¬ 
tre alla qualità, soprattutto la varietà delle applicazioni e degli argomenti per la rea¬ 
lizzazione dei quali si è cercato di utilizzare al massimo le nuove interessanti presta¬ 
zioni dello Spectrum quali le nuove istruzioni BASIC, la velocità, il Suono, e soprat¬ 
tutto il Colore e la Grafica tra cui specialmente l’altra risoluzione e la possibilità di 
creare dei Caratteri Speciali. Le applicazioni vanno dalla Grafica (30) a, Musica (5), 
Utility (8), Animazioni (6), Giochi (7), Effetti Sonori (12), Elettronica (4) ed altri pro¬ 
grammi (5). 

Un cenno particolare merita senzalatro la 'Business Grafica', presente con 9 pro¬ 
grammi, e realizzata con una efficacia visiva e una utilizzabilità pratica precedente- 
mente possibile solo su personal e business computers molto più costosi. 

Dello stesso Autore: 

- 66 PROGRAMMI PER ZX81 E ZX80 Con Nuova ROM + Hardware. 

- GLI AMPLIFICATORI DI NORTON QUADRUPLI LM3900 4 LM359 con Esperi¬ 
menti. 
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